Dim str As String
Dim i
Dim charPra As String
str = Trim(Text1.Text)
For i = 1 To Len(str)
If Asc(Left(str, 1)) < 0 Then
'MsgBox Left(str, 1)
Text1.Text = ""
Text1.SelStart = 0
Text1.SelLength = 10
Cancel = True
Dim i
Dim charPra As String
str = Trim(Text1.Text)
For i = 1 To Len(str)
If Asc(Left(str, 1)) < 0 Then
'MsgBox Left(str, 1)
Text1.Text = ""
Text1.SelStart = 0
Text1.SelLength = 10
Cancel = True
End If
str = Mid(str, 2)
Next i