Ayuda con buscar un texto en un combo

[antonio2005pe]

hola quisiera saber si es posible, Como puedo buscar un texto dentro de la lista de un combo o datacombo?
Gracias

[VHid@lgo]

prueba de esta forma

Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = "dinora" Then
Exit Sub
Else
Combo1.ListIndex = Combo1.ListIndex + 1
End If
Next i
End Sub