Ok ... se non ho capito male ti serve qualcosa del genere

codice:
Dim k As Integer
    
For k = 0 To Combo1.ListCount - 1
  If Combo1.List(k) = Genere Then Exit For
Next k
If k < Combo1.ListCount Then
  Combo1.ListIndex = k
Else
  Combo1.ListIndex = -1
End If
In cui Combo1 e' la tua combo, Genere e' la stringa che cerchi.

Come risultato avrai che il genere e' selezionato nella combo se e' stato trovato, altrimenti sara' visualizzata la combo vuota.