How to make a Textbox that accepts only numbers and one decimal place in Visual Basic?

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