Ayuda con Listbox y Textbox

Hola, Rodrigo !

Mostrar la cita

1.- Una ... listbox.
2.- Un textbox para ... el nombre
... mientras ... caracteres en el textbox ... una seleccion de la coincidencia en la listbox
... no puedo usar combobox ... requiero que ... esten desplegados los nombres
... necesito que no pierda el setfocus el textbox ... que me vaya dando la coincidencia en el listbox.

podrias utilizar [p.e.] una macro 'auxiliar' para el evento '_Change' del textbox
[suponiendo que se llaman 'TextBox1' y 'ListBox1']
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
If Len(TextBox1) > 0 _
Then BuscarEnLista LCase(TextBox1) _
Else ListBox1.ListIndex = -1
End Sub
Private Sub BuscarEnLista(ByVal Buscado As String)
Dim Elem As Integer, Coincide As Integer
With ListBox1
For Elem = 0 To .ListCount - 1
If LCase(Left(.List(Elem), Len(Buscado))) = Buscado Then
Coincide = Elem + 1
Exit For
End If
Next
If Coincide > 0 Then .ListIndex = Coincide - 1 Else .ListIndex = -1
End With
End Sub

saludos,
Héctor.