vb 中连续输入N个值，直到输入非数值型为止。最后输出最小的一个数

Private Sub Command1_Click()
Dim 判断 As Boolean, x As String
判断 = False
Do
x = InputBox("输入")
If IsNumeric(x) <> True Then 判断 = True
Loop Until 判断 = True
End Sub

Dim myInput, myMin, a As Integer
Do
a = a + 1
myInput = InputBox("请输入数据，输入非数值型结束", "输入数据")
If IsNumeric(myInput) = False Then Exit Do
If a = 1 Then myMin = myInput
If myMin > myInput Then myMin = myInput
Loop
MsgBox "最小的数字是：" & myMin