Private Sub Command1_Click()

    Dim obj

    Set obj = CreateObject("MyCom.MyAPI")
    obj.MsgBox ("こんにちは !")

End Sub