for to if else-fejl

Denne kode virker ikke.
Hvad har jeg gjort forkert?

Private Sub Command5_Click()
Dim linienr As Integer
    For linienr = 0 To List1.ListCount - 1
        List1.ListIndex = linienr
            If List1.Text = Text1.Text Then
                MsgBox "Fundet"
            Else
                MsgBox "Ej fundet"
                Exit Sub
     
          End If
    Next
 
End Sub