請益，我想按鍵精靈，依據輸入的值執行?

我想按鍵精靈，依據輸入的值執行?
如下方，跳出對話框，
輸入想執行的SUB?

x=InputBox("")
TracePrint x
Dim x

Select Case x
Case 1 : Call qq
Case 2 : Call qqq
End Select

Sub qq
MoveTo 631, 142
RightClick 1
End Sub
Sub qqq
MoveTo 631, 500
RightClick 1
End Sub