Shell函数的问题

我学习Shell函数。代码如下：
Function retnum()
NL = Chr(13) + Chr(10)
msg$ = "1.运行DOS命令" + NL + "2.运行VB应用程序"
msg$ = msg$ + NL + "3.计算器"
msg$ = msg$ + NL + NL + "请输入数字选择"
retnum = InputBox(msg$)
End Function
Private Sub Command1_Click()
r = retnum()
Select Case r
    Case 1
        x = Shell(", 1)
    Case 2
        x = Shell("D:\Common\VB6.EXE", 1)
    Case 3
        x = Shell("calc.exe", 1)
    Case Else
        MsgBox "请输入1-3的数"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub
界面如下：

我意图是单击按钮1出现一个输入框，选择1，出现DOS界面。

可是我输入1，单击确定，出错：

点击调试：

我用的系统是WIN10。
请问高手，如何解决？谢谢！