Listboxta döngü ile veri çekme

[chakistes]

Merhaba arkadaşlar kayıtları excelden listboxa aktardım tek tek listboxtan seçince çekiyorum fakat aşağıdaki kodu döngü ile sırayla listboxtan seçerek kayıt çeksin istiyorum bu konuda yardıma ihtiyacım var.
On Error Resume Next
UserForm1.WebBrowser1.Silent = True
UserForm1.WebBrowser1.Navigate ("https://xxxxxx.xxxxx.com.tr")
Application.Wait (Now + TimeValue("0:00:01"))

xbekleT
UserForm1.WebBrowser1.Document.getElementById("UyeSorgulamaSubmitModel_TcKimlikNo").Focus
xbekleT
With UserForm1.WebBrowser1.Document.getElementById("UyeSorgulamaSubmitModel_TcKimlikNo")
deneme


.Value = ListBox1.Column(0, ListBox1.ListIndex) & "1"



xbekleT



UserForm1.WebBrowser1.Document.getElementById("uyeSorgulaBtn").Click
xbekleT


End With