Dim instance As StdFunc = New StdFunc()
'StdFuncクラス StdFunc コンストラクタ Public Class AddIn Private stdf As StdFunc Public Sub New() stdf = New StdFunc() End Sub End Class