Private Sub Text1_LostFocus()
  Dim curWert As Currency
 
  On Local Error Resume Next
  curWert = CCur(Text1.Text)
  If Err <> 0 Then
    <font color=green>' Fehler</font>
    MsgBox "Fehler bei der Eingabe!"
  Else
    Text1.Text = Format$(curWert, "Currency")
  End If
End Sub