Beachte bitte die With-Anweisung.

Option Explicit
 
Sub Test()
   
  Dim strWhat As String
  Dim i As Long
   
  With ListBox1
     
'    'Listbox mit Beispielen füllen
'    .Clear
'    .AddItem ("Banane")
'    .AddItem ("Apfelmus")
'    .AddItem ("Apfel")
'    .AddItem ("Kirsche")
'    .AddItem ("Apfeltasche")
     
    strWhat = "Apfel" 'hiernach wird gesucht
     
    For i = 0 To .ListCount - 1
      If CBool(InStr(1, .List(i), strWhat, vbTextCompare)) Then
        .ListIndex = i 'auswählen
        Exit For
      End If
    Next
     
  End With
   
End Sub

Infos zu With findest du in der Hilfe (in der VBA-IDE oben rechts mal With eingeben, oder per F1 die Hilfe öffnen).