liste kutusundan virgülle metin kutusuna veri yazdırma

Merhaba ekteki örnekte toplu email gönderimi yapmak için el ile adreslerin arasına "," yazıldığında gönderim yapabiliyoruz. Seç butonuna bir liste yaptım. Verilerin üzerine çift tıkladığımda mail gönderme formundaki gönderilecek adres kutusuna tek adres yazdırabiliyorum. Ama çoklu seçimi yapamadım.
Birden fazla seçip aralarına "," koydurarak yazdırabilir miyim?

Biraz daha kurcaladıktan sonra sorunumu çözdüm. Aşağıdaki kodlarla halletim.

Private Sub Liste0_DblClick(Cancel As Integer)

Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Forms.Frm_Mail_Gonder!TxtGonderilecekMail & "," & Liste0.Column(1)

If Left(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, 1) = "," Then Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Right(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, Len(Forms!Frm_Mail_Gonder.TxtGonderilecekMail) - 1)

End Sub