excluding characters from texboxes

[bvdv]

How do I prevent an error-massage when someone types a character(instead of a figure) in a textbox which is included in a calculation (A = B + text1.text)?

 

[JohnYingling]

Sub Textbox1_KeyPress (keyascii as integer)
    If KeyAscii = 8 then exit function ' Backspace
    Select Chr(KeyAscii) 
    Case "0", "9"
    Case else 
        keyascii = 0 ' Drop character
    End select
End Sub

http://WWW.VBCompare.Com

 

[JohnYingling]

Oops, make that Case "0" to "9"
And decimal point for kicks.

Sub Textbox1_KeyPress (keyascii as integer)
    If KeyAscii = 8 then exit function ' Backspace
    Select Chr(KeyAscii) 
    Case "0" to "9"
    Case "."
        if Instr(textbox.text,".") > 0 then
            keyascii = 0 ' Drop character
        End if
    Case else 
        keyascii = 0 ' Drop character
    End select
End Sub

http://WWW.VBCompare.Com