Søgeknap

Jeg har problemer med en søgeknap med nedenstående kode. Problemet består i, at hvis man f.eks. søger efter et sags nr. så vises den rigtige sag, men det er ligesom den ikke rigtigt tager fat i sagen, da den forsvinder hvis man f.eks. tabulerer ud af feltet:

Private Sub Søg_Click()
    On Error GoTo Err_Søg_Click

    Dim søgeord As String
    Dim filter As String
    Dim søgeordArray() As String
    Dim i As Integer
    Dim delFilter As String

    ' Bed brugeren om at indtaste søgeord
    søgeord = InputBox("Indtast søgeord for at søge i fornavn, mellemnavn, efternavn, CPR-nummer eller sagsnummer:", "Søg")

    ' Tjek om brugeren har indtastet noget
    If Len(Trim(søgeord)) = 0 Then
        Exit Sub ' Ingen søgeord indtastet, afslut uden handling
    End If

    ' Split søgeordene baseret på mellemrum
    søgeordArray = Split(Trim(søgeord), " ")
    filter = ""

    ' Gennemgå hvert søgeord og byg filteret
    For i = LBound(søgeordArray) To UBound(søgeordArray)
        delFilter = "[Fornavn] LIKE '*" & søgeordArray(i) & "*' OR [Mellemnavn] LIKE '*" & søgeordArray(i) & "*' OR [Efternavn] LIKE '*" & søgeordArray(i) & "*' OR [CPRnr] LIKE '*" & søgeordArray(i) & "*' OR [Sagsnr] LIKE '*" & søgeordArray(i) & "*'"
        If filter = "" Then
            filter = delFilter
        Else
            filter = filter & " AND (" & delFilter & ")"
        End If
    Next i

    ' Debug: Vis filterstreng i Immediate-vinduet (valgfrit)
    Debug.Print "Anvender filter: " & filter

    ' Anvend filteret på formularen
    Me.filter = filter
    Me.FilterOn = True

    Exit Sub ' Sørg for at afslutte korrekt, hvis der ikke er nogen fejl

Err_Søg_Click:
    MsgBox "Fejl under søgning: " & Err.Description, vbExclamation, "Fejl"
End Sub