Sub foo() MsgBox "foo" End Sub foo Sub foo() MsgBox "Foo" End Sub foo 引数がない(あるばあいも？)場合は括弧が必要 2回とも Foo が表示された Sub foo() MsgBox "foo" End Sub ' foo Sub foo(x, y, z) MsgBox "foo" & x & y & z End Sub foo 1, 2, 3 ' …