Visual Basic - Código para buscar dentro de una lista desplegable

Dim X As Integer

Dim Str As String

Dim Encontrado As Boolean

Str =  "Lo que voy a buscar en el combo"

x= 0

Do While X <= Combo1.ListCount - 1

	If UCase(Trim(Combo1.List(X))) =UCase(Trim(Str)) Then

	 Encontrado = True

	 Exit Do

	End If

	X = X + 1

Loop

If Encontrado = true Then

  msgbox "Lo enncontre en el Indice "  & X

End If

Else

    msgbox "No se encontro el registro buscado"

End If