gistfile1.txt

 ★★★　参照渡しの例　★★★
Sub Sample_Ref()

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

' ★★★　参照渡しの関数　★★★
Sub CallByRef(ByRef msg As String)

End Sub
   msg = "値を変えました！"
   
End Sub