Private Sub Command1_Click() Dim obj Set obj = CreateObject("MyCom.MyAPI") obj.MsgBox ("こんにちは !") End Sub