• Home
 · 
• String Manipulation
 · 
• Validating numbers. Useful for entering the Amount in TextBox

Validating numbers. Useful for entering the Amount in TextBox

Validating numbers. Useful for entering the Amount in TextBox

Rate Validating numbers. Useful for entering the Amount in TextBox

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

If KeyAscii <> 8 Then
    If Not IsNumeric(Text1 & Chr$(KeyAscii) & "1") Then
        KeyAscii = 0
        Exit Sub
    End If
    If InStr(Text1, ".") > 0 And InStr(Text1, ".") < Len(Text1) - 1 Then
        KeyAscii = 0
    End If
  End If
End Sub