TextBox Numeric value

'1000

If Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 8 And Not IsNumeric(e.KeyChar) Then
            e.Handled = True
End If


'100.00

 If Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 46 And Not    IsNumeric(e.KeyChar) Then
            e.Handled = True
 End If