◆Classモジュール ClassString
Public Function GetDup( _
ByVal sVal As String
) As String
GetDup = sVal & sVal
End Function
◆Classモジュール ClassCom
Public STR As New ClassString
◆標準モジュール Module1
Public C As New ClassCom
Sub Test02()
Debug.Print C.STR.GetDup("はい")
End Sub
