Only allow numeric values in the textbox

Question

I want to make a TextBox control that only accepts numerical values.

How can I do this in VB6?

Answer 1

I usually use this code:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
        KeyAscii = 0
    End If
End Sub

Hope this helps.