z.B. so:

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 ListBox1.ListCount - 1
      If CBool(InStr(1, .List(i), strWhat, vbTextCompare)) Then
        .ListIndex = i 'auswählen
        Exit For
      End If
    Next
    
  End With
  
End Sub