値渡しVBA_2

' ★★★　値渡しの例　その２★★★
Sub Sample_Val_2()

    Dim str As String
    
    str = "もとの文字です(*`▽´*)"
    
    ' 値渡しで関数を呼び出す
    str = CallByVal_2(str)
    
    ' 上記の関数内で処理した文字列をメッセージボックスにて表示
    MsgBox str
    
End Sub

' ★★★　値渡しの関数 その２　★★★
Function CallByVal_2(ByVal msg As String)

    '受け取った文字列msgを"値を変えました！"に変更
   msg = "値を変えました！"
   
   ' 値渡しの場合でも変更した文字列を戻り値として返せば、変更された文字列がメッセージボックスに表示される
   CallByVal_2 = msg
   
End Function