我学习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。
请问高手，如何解决？谢谢！

WIN10 有 吗？

WIN10 是 CMD.exe 吧。


好像是 DOS - WIN9X 时代的命令，你拿的啥时编辑的书啊？
VB6 是 98年左右出的，那时桌面操作系统还是 WIN98 ，后面还有 WIN Me ，这都是 WIN9X 系列。然后再转入WIN NT 系列的 WIN2000、WIN XP 。

另我，NL不需要自己定义，有常量： vbCrLf  

谢谢！