>>490
カッコ付けてない？

Sub changeString(ByRef s As String)
s = "changed"
End Sub

というSubを作って、

s1$ = "original"
changeString s1　　←　カッコなし
?s1
changed　　　　　　　←　変わった

s1$ = "original"
changeString(s1)　←　カッコあり
?s1
original　　　　　　　←　変わらず