Localizar dentro de Listbox Parte de texto.

Pessoal, achei um citação do Avelino, que é bem oque preciso com um porém, preciso que ao ir digitando o text vai localizando,



Ex: Os nome joao

digito J, aparecem todos com J

Digito Jo todos com Jo

Assim sucessivamente.

Usei este codigo, mais não funcionou, se alguem puder me ajudar

Private Sub fornecedor_p_Change()
Dim k&, cri As String
cri = fornecedor_p.Text + "*"
For k = 0 To Me!fornecedor.ListCount - 1
If Me!fornecedor.ItemData(k) = cri Then
Me!fornecedor.Selected(k) = True
Exit For
End If
Next

End Sub

Não se é o que pretende mais veja a aula 38 desse curso
Curso - Criando um sistema de vendas

Caro gilberlanio, é parecido com isso só queria que ele buscasse essa informação dentro da listbox mostrando todos os registros, restantes, esse codigo que mencionei, faz isso, mais somente se colocar o texto completo.

Tipo que queria que ao digitar parte do nome apareça o primeiro da lista.

Ex:
Digito Joao

Aperece

Joao Augusto
Joao Carlos
Joao Mario

Mais sem ocultar o restante dos registros.

Bom dia Pessoal,

Alguem tem alguma dica para esse código, para funcionar como eu preciso.