Soru Listboxa göre veri getirme

[sirkülasyon]

sıra = ComboBox3.ListIndex + 1
aranan = 0
Set ara = Sheets("sayfa1").Range("B4:B39").Find(aranan, LookAt:=xlWhole)
TextBox19 = Sheets("sayfa1").Range("B3").Offset(0, sıra) & "" & Year(TextBox9)

Yukarıdaki kodu Combobox3 Change olayına yazınca çalışıyor.
Combobox3 deki açılır listeleri Listbox' tan seçince aktarılacak şekilde TextBox8' e aldım.
Yukarıdaki kodu Listbox' tan seçilip TextBox8' de çalışacak şekilde düzenleyebilmem için yardım edebilir misiniz?