Simple Is numeric statement :mad:

[ThePCMan]

Hi guys,

Want 2 know some simple code for stopping alphabetical data being entered into a textbox. And allowing numerical data

Got any ideas, my last try was:

Private Sub txtContactno_KeyPress(KeyAscii As Integer)
    If IsNumeric(Chr(KeyAscii)) Then    ' For some reason this doesn't work
        KeyAscii = 0
    End If
End Sub