Solo Numeros y Punto Decimal

[crow78]

Agrdezco sus comentarios....solucione el problema....
de la siguiente manera:

Private Sub Text9_KeyPress(KeyAscii As Integer)
Dim Tot1 As Double
Dim tot2 As Double
Dim tot3 As Double
Dim tot4 As Double
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 46)) Then
If (KeyAscii <> 8) Then KeyAscii = 0
If Text9.Text = "" Then
Text9.Text = 0
End If
If (Text12.Text = 0) Then
' Multiplico en importe por el IVA
Tot1 = Text10.Text * Text9.Text
'limito a dos decimales el resultado
tot2 = Round(Tot1, 2)
Text14.Text = tot2
'Sumo el IVA obetnido con dos decimales al importe...
tot3 = tot2 + Text9.Text
tot4 = Round(tot3, 2)
Text11.Text = tot4
End If
End If
End Sub

No se si sea lo correcto pero funciona....acepto cambios