Das läuft!!! Danke!!

Aber eine Frage hätte ich da noch....Bis jetzt sucht er nur in der erste Spalte der Listbox. Ich habe allerdings mehrere...wie kann ich das einstellen?

Mein Code ist jetzt so:

Private Sub Suchencmd_Click()
    
With ArchivLbx

Dim Suche As String
Dim i As Long
   
Suche = InputBox("Bitte tätigen Sie eine Eingabe", "Eingabefeld", "Ihr Eintrag", 1, 1)    
     
For i = 0 To ArchivLbx.ListCount - 1
    If CBool(InStr(1, .List(i), Suche, vbTextCompare)) Then
        .ListIndex = i                                                                          '
Exit For
    End If
Next
End With
   
End Sub

Dankeeeee....