Listbox seçilen değeri hücreye ve textboxa aktarma

[mesutaygun70]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
.......................
End Sub

Yukarıdaki koda listboxa çift tıklayınca textbox8 ve Sheest("veri") hücre İ5 e nasıl aktarabilirim. (selecteditem) fonksiyonu ile denedim yapamadım.