seleccionar elemento listbox

[amtapias]

Buenas a todos. Tengo una duda que seguramente es una tontería pero es qu no hay manera xDD

Se trata de que tengo un listbox y siempre para seleccionar un elemento he utilizado la propiedad listindex por ejemplo:
lbNombres.ListIndex=2

El problema es que ahora quiero seleccionar  elementos pasando como parametro el nombre y no el indice. por ejemplo

tengo la siguiente lista

Juan
Pedro
Antonio
Miguel
Jose

¿Como podría hacer para que el programa me seleccione Miguel suponiendo que no se conozca su indice?

Muchas gracias y espero que haya quedado mas o menos claro
xDD

[.Slasher-K.]

Código [Seleccionar] Expandir


Sub MatchStr(csListBox As ListBox, ByVal StringToMatch As String, Optional Start As Long)
      Dim lIndex&
 
  lIndex = SendMessage(csListBox.hwnd, LB_FINDSTRING, ByVal Start, ByVal StringToMatch)
 
  If lIndex > LB_ERR Then
    csListBox.ListIndex = lIndex
  End If
End Sub


Busca la declaración de SendMessage y las constantes LB_FINDSTRING y LB_ERR.