请问怎样截取字符串中的数字？谢谢

Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As String, m As String, c As Integer
   s = Text1.Text
   n = Len(s)
   For i = 1 To n
      m = Mid(s, i, 1)
      If Asc(m) <= 57 And Asc(m) >= 49 Then
            c = c & Val(m)
            
      Else
            Print c
            Exit For
      End If
    Next i
    If i = n + 1 Then
        Print c
    End If
End Sub
我把结果直接打印在form1 上了

Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As String, m As String, c As Integer
   s = Text1.Text  ’ s 以字符型记录text1中的内容
   n = Len(s)       ’len()函数求字符串的长度，n 记录 text1 内容的长度
   For i = 1 To n   
      m = Mid(s, i, 1)  ’ mid()函数取字符串中的字符，mid(s,i,1)表示在s中从第i个字符开始取1个字符
      If Asc(m) <= 57 And Asc(m) >= 49 Then ’用asc()函数判断取出的字符是否为数字。0到9的asc()取值范围在49到57之间
            c = c & Val(m)                  ’如果是数字，则用c 来记录，并依次连接起来
            
      Else                                  ’ 如果不是数字，则打印c，并退出循环
            Print c
            Exit For
      End If
    Next i
    If i = n + 1 Then         ’如果最后显示都是数字，则打印c
        Print c
    End If
End Sub

抱歉，只要把上面的49改为48 就行了。就是 If Asc(m) <= 57 And Asc(m) >= 48 Then
其他的不用变。因为asc(0)=48

学习之