$ 0 0 Sub test1() Call test2("aaa") End Sub Sub test2(str As String) MsgBox str End Sub ByRefもByValも使ってないから 参照渡しでも値渡しでもないですよね?