Private Function GetSingelValue (ByVal pstrValue as String) as Single
 
  On Error GoTo GetSingleValueErr
 
  GetSingleValue = CSng( pstrValue )
 
GetSingleValueErr:
  MsgBox "Der eingegebene Wert kann nicht umgewandelt werden", vbInformation + _
    vbOkOnly, "Umwandeln des Strings in Single"
  GetSingleValue = -161616.161616 'Auf diese Zahl kann dan geprüft werden ;-)
End Function

MfG Liechte
-------------------------------------------------------------------
Wir h?ren nicht auf zu spielen weil wir alt werden,
wir werden alt wenn wir aufh?ren zu spielen
-------------------------------------------------------------------