Selecionar itens num listbox, em função loop

Boa tarde

Gostava de selecionar numa listbox, o valor igual a (i) desta função alguem tem ideia como?

Portanto o que pretendia, era em vez de aparecer uma mensagem, aparecer o registo selecionado

Desde já os meus agradecimentos ao forum

Dim NumReg
Dim Selected As Integer
Dim i
Dim X As Integer

'para looping em listBox
For i = 1 To Me.lstConsulta.ListCount - 1
MsgBox Me.lstConsulta.Column(0, i), vbOKOnly, "Item"
NumReg = " & i + 1"
Next i
'Seleção corrente
i = Me.lstConsulta.ListIndex
MsgBox Me.lstConsulta.Column(0, i), vbOKOnly, "Item"
Selected = " & i + 1"
'Fim do registro na listBox
i = Me.lstConsulta.ListCount - 1
MsgBox "Last row: " & i + 1, vbOKOnly, "End of list"

Esta função encontrei no vosso topico

http://maximoaccess.forumeiros.com/t4254-resolvidoloop-em-listbox-para-depois-encontrar-o-registro-com-valor-maximo-em-uma-coluna?highlight=listbox

Boa tarde,
Dim NumReg, i As Integer, Maximo
'para looping em listBox
For i = 0 To Me.lstConsulta.ListCount - 1
If Me.lstConsulta.Column(0, i) > Maximo Then Maximo = Me.lstConsulta.Column(0, i): NumReg = i
Next i
Me.lstConsulta.Selected(0, NumReg + 1) = True

Obrigado pela dica

Mas não resulta, pois a intenção é fazer, com que o focus na listbox acompanhe com a row lida pelo loop.
E tal não estou a conseguir efectuar, antes eu efectuava esta função com sendkeys, só que no windows7 deixou de funcionar.
Pois a intenção desta função é abrir um relatório com dados da entidade, e enviar de forma automática um email, para cada uma das entidades.
Tem mais alguma ideia?

Seja um pouco mais claro sobre sua necessidade...

Deseja ao efetuar o loop a linha na listBox seja marcada? sequencialmente?


Cumprimentos.