怎样删除字符

Question

当在文本框中输入时，怎样去掉字符而保留数字？非常感谢！！

Answer 1

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 Then
      KeyAscii = 0
  End If

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 Then
      KeyAscii = 0
  End If
End Sub

Answer 3

Private Sub Command1_Click()
    Dim s, s1 As String
    Dim i As Long
    s = Trim(Text1.Text)
    
    For i = 1 To Len(s)
        If Asc(Mid(s, i, 1)) >= 48 And Asc(Mid(s, i, 1)) <= 57 Then
            s1 = s1 & Mid(s, i, 1)
        End If
    Next i
    
    Text1.Text = s1
End Sub