Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Text1_Validate(Cancel As Boolean)
Dim i
For i = 1 To Len(Text1.Text)
If Not IsNumeric(Mid(Text1.Text, i, 1)) Then
Text1.Text = Trim(Replace(Text1.Text, Mid(Text1.Text, i, 1), ""))
If i > Len(Text1.Text) Then
Exit For
Else
i = i - 1
End If
End If
Next
End Sub