Sub Main()
Dim MyObj As MittObjekt 'Deklarerar en variabel av typen 'MittObjekt' = vår klass
Set MyObj = New MittObjekt 'Skapar ett nytt objekt

Debug.Print MyObj.DoSomething("12456") 'Skickar data till objektet som bearbetar datan och svarar med en sträng, vilken sen skrivs ut
End Sub