[Resolvido]Selecionar listbox por código

Bom dia todos!
Estou precisando da ajuda dos colegas.
Como faço para que após digitar a data no textbox seja selecionada a data correspondente no listbox?

Bom dia,

Mas porque digitar na caixa de texto, se pode clicar diretamente na caixa de listagem????

Essas datas só são inseridas no listbox a medida que é salvo agendamento.
Conforme imagem veja que na textbox consta 21/08/2020, e no listbox tá selecionado 27/08/2020.
Preciso que quando digitar a data selecione no listbox a data digitada.
Sei que pra retirar a seleção do listbox posso utilizar o código Me.list.value=-1
Tentei utilizar o código Me.list.Column (1) = Me.txtdata.value, não deu certo

Bom dia amigo,

Mas ainda não entendi sua necessidade.

A data 21/08, já consta na lista. Se deseja salvar mais um agendamento para essa data, basta clicar na listagem ou salvar a data digitada na caixa de texto.

Que tal postar o form e tabelas do seu aplicativo.


Abraços,

Obrigado mais uma vez o mestre Avelino Sampaio e ao colega cleverson_manaus.
Funcionou direitinho...

Segue o código como ficou:

Dim n As Integer
For n = (Me!ListQtdAgendaNotas.ListCount - 1) To 0 Step -1
'------------------------------
'Vai marcando item por item
If Me!ListQtdAgendaNotas.Column(1, n) = Format(txtDataAgendamento, "dd/mm/yyyy") Then ' aonde zero(estou pegando o dado da primeira coluna)
'------------------------------
Me!ListQtdAgendaNotas.Selected(n) = True 'seleciona a data de acordo com a txt
Else
Me!ListQtdAgendaNotas.Selected(n) = False 'caso não tenha a data no listbox desmarca a seleção anterior
End If
Next