どうどう？

MsgBox MsgSub("abc", "def")

Function MsgSub (str1, str2)
 MsgSub = str1 & chr(13) & str2  ' vbCrLf
End Function

str1 = "abc"
str2 = "def"
str3 = "ghi"

MsgBox MsgSub(str1, str2, str3)
MsgBox str1 & vbCrLf & str2 & vbCrLf & str3

Function MsgSub (ByRef str1, ByVal str2, str3)
 MsgSub = str1 & vbCrLf & str2  & vbCrLf & str3
 str1 = "dame"   ' 元の文字列の変更は有効     ByRef (参照渡し)
 str2 = "dame"  ' 元の文字列への変更は無効 ByVal  (値渡し)
 str3 = "dame"  ' 元の文字列の変更は有効    無指定(参照渡し)
End Function