Aus einem Anderen Browser diesmal hoffentlich mit Zeilenumbrüchen.

Hallo.

Ich habe ein kleines Problem über das ich mir geade den Kopf zermartere:
Ich habe Eine User Form um in einem Datensatz zu suchen. Der 'Suche Ausführen' Knopf löst folgendes aus:
 

Private Sub CommandButton7_Click() 'Suche Ausführen
    Dim i As Integer
    Dim n As Integer
    i = 2
    n = 2
    If ToggleButton1.Value = True Then
        n = letzteZeile(1, 1)
    End If
    If OptionButton1.Value = True Then
        Do While Sheets(3).Cells(i, 1) <> ""
            If Sheets(3).Cells(i, 1) = TextBox4.Value Then
               SucheEintragen(n, i)
            End If
            i = i + 1
        Loop
    End If
End Sub

Public Function SucheEintragen(n As Integer, i As Integer)
    Sheets(1).Cells(n, 1) = Sheets(3).Cells(i, 1)
    Sheets(1).Cells(n, 2) = Sheets(3).Cells(i, 2)
    Sheets(1).Cells(n, 3) = Sheets(2).Cells(Sheets(3).Cells(i, 3), 2)
    Sheets(1).Cells(n, 4) = Sheets(2).Cells(Sheets(3).Cells(i, 4), 3)
    Sheets(1).Cells(n, 5) = Sheets(2).Cells(Sheets(3).Cells(i, 5), 4)
    Sheets(1).Cells(n, 6) = Sheets(2).Cells(Sheets(3).Cells(i, 6), 5)
    Sheets(1).Cells(n, 7) = Sheets(3).Cells(i, 7)
    Sheets(1).Cells(n, 9) = Sheets(2).Cells(Sheets(3).Cells(i, 9), 6)
    With Worksheets(1)
        .Hyperlinks.Add Anchor:=Cells(ListIndex, 8), _
        Address:=Sheets(3).Cells(i, 8), _
        ScreenTip:="PDF Scann der Rechnung", _
        TextToDisplay:="PDF"
    End With
    ListIndex = ListIndex + 1
End Function

Wen ich nun das SucheAusführen(n, i) im Sub des Buttons eingebe verlangt die Autokorrektur des Editors immer ein =.

(Fehler beim Kompilieren. Erwartet =)
Wenn ich die User Form ausführe und eine Suche auslösen will bekomme ich Einen Syntaxfehler und die besagte Zeile wird markiert. Ich verstehe wirklich nicht warum dieser Fehler entsteht..

Ich hoffe mir kann jemand helfen. Danke :)