>>398
On 変数 Goto Sub1, Sub2, Sub3 ... でいいと思うけど、
どっちかと言うと
Select Case 変数
Case 1:
　MsgBox "Sub1"
Case 2:
　MsgBox "Sub2"
...
Case Else
　MsgBox "???"
End Select
の方がいいと思う。