Dim dblSteuer as Double
Dim dblEingabe as Double
 
dblEingabe = Val(Application.InputBox("Geben Sie bitte Ihr Jahreseinkommen" & _
  "an")) 'Anstatt Komma einen Punkt!!! 
 
If dblEingabe < 7665 Then
  MsgBox "Ihr Einkommen braucht nicht versteuert zu werden nach §52 EStG", _
    vbInformation + vbOkOnly, "Hinweis"
  dblSteuer = 0 'Eingabe auf 0 setzen, damit ich später abprüfen kann bzw ich 
  ' weiß dass MsgBox schon ausgegeben ist (nennt man Variablen Recycling ;) )
ElseIf dblEingabe >= 7665 And dblEingabe < 12740 Then
  dblSteuer = ((883.74 * dblEingabe) + 1500) * dblEingabe) 'Hier Punkt vor 
  ' strich Regelung beachten
ElseIf dblEingabe >= 12740 And dblEingabe < 52152 Then
  dblSteuer = ((Formel mit Punkt vor Strich....))
ElseIf dblEingabe => 52152
  dblSteuer = ((Formel ...))
End If
 
If dblSteuer > 0 Then MsgBox "Ihre Steuern betragen: " & dblSteuer & "" & _
  "Euro.", vbInformation + vbOkOnly, "Einkommenssteuer"

Gr??e

bascaro