Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 48 To 57, 8, 32, 46
      ' Nur Zahlen und Punkt zulassen
    Case 44
      ' Komma autom. in Punkt umwandeln
      KeyAscii = 46
  End Select
End Sub

Dim nWert As Single
nWert = Val(Text1.Text)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de