• Home
 · 
• String Manipulation
 · 
• Only Numbers in Textbox...and when the user types an other character...it is deleted and waits for

Only Numbers in Textbox...and when the user types an other character...it is deleted and waits for

Only Numbers in Textbox...and when the user types an other character...it is deleted and waits for number at the end of the Textbox text!

Rate Only Numbers in Textbox...and when the user types an other character...it is deleted and waits for

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If txtdigits.Text <> "" Then
    dig$ = Mid(txtdigits.Text, Len(txtdigits.Text), 1)
    If Asc(dig$) < 48 Or Asc(dig$) > 59 Then
        MsgBox ("Only numbers in digits..."), vbCritical, "Error"
        For i = 1 To Len(txtdigits.Text) - 1
            digi$ = Mid(txtdigits.Text, i, 1)
            digits$ = digits$ & digi$
        Next i
        txtdigits.Text = digits$
        txtdigits.SelStart = Len(txtdigits.Text)
    End If
End If
End Sub