[ask] textbot_changed

[allopiloping]

i have a code

Private Sub txt1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged
        Dim a As Integer
        txt1.SelectionStart = txt1.Text.Length
        a = txt1.SelectionStart
        If status = True And (Chr(Asc(txt1.SelectedText(a))) < Chr(48) Or Chr(Asc(txt1.SelectedText(a))) > Chr(57)) And Chr(Asc(txt1.SelectedText(a))) <> Chr(8) Then
            MsgBox("Only numeric text", MsgBoxStyle.OkOnly)
            txt1.Text = Chr(0)
            txt1.Focus()
        End If
    End Sub

i want to make a checking everytime i input a character
it's checking is it a numeric or not

plz help me

thx