Option Explicit
 
Private Sub Command1_Click()
  Dim nWert As Single
 
  nWert = Val(Text1.Text)
  MsgBox nWert
End Sub
 
Private Sub Form_Load()
  Text1.Text = "-12.3"
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  ' Nur Zahlen, Minus und Punkt zulassen (und Backspasce)
  Select Case KeyAscii
    Case 48 To 57, 8, 45, 46
    Case 44
      ' Komma autom. in Punkt umwandeln
      KeyAscii = 46
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de