Function wird nicht korrekt ausgeführt

Liebe/-r Experte/-in,

ich habe mmir eine Function heruntergeladen zur
einkommensteuerberechnung. Wenn ich die Ausführe mit dem
Befehl
=Steuer2004

Erscheint die Fehlermeldung :

Fehler beim kompilieren:
Es muss sich um die erste Anweisung in der Zeie handeln.

Wobe dann das Wort Function markiert ist.

Hier noch der Code:

1 Public Function Steuer2004(dblEinkommen As Double) As
Double
2 Dim zw As Double, x As Double, y As Double, z As
Double
3 If dblEinkommen 0 Then
20 Steuer2004 = Round(zw, 0) + 1
21 Else
22 Steuer2004 = zw
23 End If
24 End Function

Vielen Dank für die Unterstützung.

Hallo Frau Hallstein,

entschuldigung für die späte Antwort.
Leider kann ich Ihnen nicht weiterhelfen.