Create a TextBox and go to its KeyPress Event.
This textbox accepts Numbers, one (1) decimal place and Special keys (Enter, Backspace, Delete, etc.)
Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress
Dim decimalPoint As String
decimalPoint = Application.CurrentCulture.NumberFormat.NumberDecimalSeparator
e.Handled = Not (
(e.KeyChar = decimalPoint And sender.Text.IndexOf(decimalPoint) = -1) Or
Char.IsDigit(e.KeyChar) Or
Asc(e.KeyChar) = 8
)
End Sub