If Char.IsDigit(e.KeyChar) Or Asc(e.KeyChar) = 8 Then
e.Handled = False
Else
e.Handled = True
End If
If Char.IsDigit(e.KeyChar) Or Asc(e.KeyChar) = 8 Then
e.Handled = False
Else
e.Handled = True
End If