Visual Basic.NET - Entrada de numeros decimales

BPermitir decimales y solo numeros
Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso (e.KeyChar <> "."c) Then
e.Handled = True
Return
End If

' Permite solo un punto decimal
If (e.KeyChar = "."c) AndAlso (TextBox3.Text.IndexOf("."c) > -1) Then
e.Handled = True
Return
End If

' Permite solo números positivos
If (e.KeyChar = "-"c) AndAlso (TextBox3.Text.Length = 0) Then
e.Handled = False
Return
End If

' Permite la tecla de borrar (Backspace)
If (e.KeyChar = ChrW(Keys.Back)) Then
Return
End If

' Verifica si es un número válido (entero o decimal)
Dim result As Double
If Not Double.TryParse(TextBox3.Text & e.KeyChar, result) Then
e.Handled = True
End If
End Sub