'Busca un texto en un combo, si lo encuentra se posiciona en el
'sino, te deja con el texto k tenía
Public Function BuscarEnCombo(cmb As ComboBox, valor As String) As Boolean
Dim i As Long
i = 0
'Mientras no encuentre el valor y hayan elementos en la lista
While cmb.List(i) <> valor And i < cmb.ListCount
i = i + 1
Wend
'Si lo encontró
If cmb.List(i) = valor Then
cmb.ListIndex = i
BuscarEnCombo = True
End If
End Function