値渡しVBA

' ★★★　値渡しの例　★★★
Sub Sample_Val()

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

' ★★★　値渡しの関数　★★★
Sub CallByVal(ByVal msg As String)

    '受け取った文字列msgを"値を変えました！"に変更
   msg = "値を変えました！"
   
End Sub