VBA 参照渡し 値渡し

Sub sansyou() '参照渡し=>変数そのものを渡す  ・値渡し=>変数の値を渡す
Dim buf As String
Dim buf2 As String
buf = "Excel VBA"
buf2 = "Excel VBA"

Call sansyou1(buf)
Call sansyou2(buf)
MsgBox buf
MsgBox buf2
End Sub

Sub sansyou1(ByRef msg As String) 'ByRef 参照渡し
msg = "VBAエキスパート"
End Sub

Sub sansyou2(ByVal msg As String) 'ByVal 値渡し
msg = "VBAエキスパート"
End Sub