RosettaCodeData/Task/Call-an-object-method/VBA/call-an-object-method-2.vba

Option Explicit

Sub test()
Dim Obj As New myObject
    Obj.Method_1 "Hello to you"
    Obj.Method_2 "What is your name ?"
    Obj.Method_1
    Obj.Method_2
End Sub