ListBox1

Здравейте !
Мога ли да попитам ?
Поставил съм в userform1 един textbox1 един listbox1 и един commandbutton1 ,който извиква listbox1 , след което маркирам избраният от мен запис в listbox1 и с друг бутон затварям същия ,а посоченият запис се отпечатва в тtextbox1. До тук добре .
Въпроса ми е сленият
как с друг бутон да извикам същият listbox1 да маркирам запис след което
затваряйки listbox1 маркираният запис да се отпечата в тtextbox2

Или ако трябва да синтезирам с различни бутони да мога да извиквам листбокса и маркираният запис да се отпечатва в различен от първия текстбокс. Пробвах с проверка за натиснат бутон примерно : ако е натиснат commandbutton1 ,то маркираният запис в listbox1 да се отпечата в тtextbox(n). Но нещо не се получава......За това търся помощ
ето как съм го направил за един текстбокс .....(Userform1 и textbox1 )

Private Sub CommandButton1_Click()
Dim strTemp As String
Dim lngIndex As Long

For lngIndex = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lngIndex) Then
strTemp = strTemp & ListBox1.List(lngIndex) & " - "
End If
Next
If Len(strTemp) > 0 Then
UserForm1.TextBox1 = Left(strTemp, Len(strTemp) - 1)
Else
UserForm1.TextBox1 = ""
End If
End Sub

Вариант:
Декларирай глобална променлива, която да приема различна стойност (1 или 2), в зависимост от това, от къде извикваш Listbox, а присвояването на TextBox го направи например така

if прoменлива = 1 then
UserForm1.TextBox1 = Left(strTemp, Len(strTemp) - 1)
else
UserForm1.TextBox2 = Left(strTemp, Len(strTemp) - 1)

На бегъл поглед бих добавил към словата на колегата:
Не е лошо да се инициализират променливите, преди да се ползват. Иде реч за StrTmp.

Извинявай TRN ,но нещо не разбрах а как да го направя за 5 textbox i 5 commandbutton?
Благодаря!

Изглежда нямаш и елементарно понятие от програмиране. Защо се захващаш тогава.
Нямам намерение да преподавам уроци. Ако друг има желание да заповяда.
А дали е с един или няколко елемента принципа е един и същ.