>>溝田　千壽喜

これ実行してみ　

そしてから　参照渡し・値渡し・参照型　を勉強し直せ



Private Sub Sub1(ByVal F As Form, ByVal S As String)
　　F.Caption = F.Caption & " / 引数が ByVal です"
　　S = S & " / 引数が ByVal です"
End Sub

Private Sub Sub2(ByRef F As Form, ByRef S As String)
　　F.Caption = F.Caption & " / 引数が ByRef です"
　　S = S & " / 引数が ByRef です"
End Sub

Private Sub Form_Load()
Dim dStr As String

　　Me.Caption = "Test "
　　dStr = "Test "

　　Call Sub1(Me, dStr)
　　Call Sub2(Me, dStr)

　　Me.AutoRedraw = True
　　Me.Print dStr
　　Me.AutoRedraw = False
End Sub