Public Function CheckEingabe(TextBox As TextBox) As Double
  <font color=green>' Eingabe auf 0 prüfen</font>
  If TextBox.Text = "0" Then
    CheckEingabe = 0
    TextBox.Text = "0"
  Else
    CheckEingabe = Val(TextBox.Text)
  End If
End Function

Private Sub TX_Eingabe_LostFocus()
  dblEingabe = CheckEingabe(TX_Eingabe)
End Sub