[Resolvido]Selecionar um registro na Listbox através de uma textbox

Boa tarde, pessoas!
Tenho um forms onde contém uma listbox com o cadastro de fornecedores, gostaria de pesquisar os fornecedores da Listbox através de uma Textbox, e quando o registro fosse encontrado, ele ficasse selecionado; isso será possível?

Tente adaptar

Coloque na caixa de texto :

Private Sub CaixadeTexto_AfterUpdate()
Me.CaixaListagem = ""
Me.CaixaListagem.Requery
Me.Requery
End Sub

Private Sub CaixadeTexto_LostFocus()
Me.CaixaListagem.SetFocus
Me.CaixadeTexto = ""
End Sub

em um botão:

Private Sub Comando4_Click()
Dim sel As Variant
Dim strwhere As String
   
On Error GoTo Err_Comando4_Click

   strwhere = "CampoChave in ("
   For Each sel In Me.CaixaListagem.ItemsSelected
       strwhere = strwhere & "'" & Me.CaixaListagem.ItemData(sel) & "',"
   Next
   strwhere = strwhere & ")"
   
   DoCmd.OpenReport "NomedoRelatorio", acViewPreview, , strwhere
   DoCmd.Close acForm, "NomedoformulariodePesquisa", acSaveNo

Exit_Comando4_Click:
  Exit Sub

Err_Comando4_Click:
  MsgBox Err.Description
  Resume Exit_Comando4_Click
End Sub

Boa tarde, tauron!
Funcionou perfeitamente, muito obrigado!

Muito obrigado!
--- Nota ao Pessoal do administrativo ---
O botão Resolvido não está funcionando, motivo pelo qual não está finalizando esta postagem.

O forum agradece.

Poste algo como qualquer "figurinha" e tente clicar no botão resolvido. Comigo funcionou.

opa...
em qual  linha que   se digita esse código na caixa de texto.....?
estou tendo a mesma situacao,  mas nao  sei aonde se digita esse codigo