Visual Basic - Manipular datos del listbox

Hola, quisiera ver si me pueden ayudar con lo siguiente; tengo un listbox digamos con 15 elementos(correos) y esos los quiero pasar a un cuadro de texto y todos los elementos concatenados, por ejemplo

que en el text1 queden:

[email protected];[email protected];[email protected];

y asi todos los elementos del listbox separados por punto y coma, supongo que esto se les hara facil, si no es mucho pedir me podrian mandar un ejemplo, de antemano gracias.

He creado un proyecto con un cuadro de lista, un botón y un textbox, al pulsar el botón se acumulan todos los elementos de la lista, si es esto lo que quieres, te mando el ejemplo del código:

Private Sub Command1_Click()
Dim i As Integer
Text1 = ""
' Leemos toda la lista desde la primera posición hasta la última menos una y lo añadimos al textbox con el separador que deseamos.
For i = 1 To List1.ListCount - 1
Text1 = Text1 & List1.List(i) & ";"
Next i
End Sub

Private Sub Form_Load()

' Cargamos el la lilsta
With List1
.AddItem "Valor 1"
.AddItem "Valor 2"
.AddItem "Valor 3"
.AddItem "Valor 4"
.AddItem "Valor 5"
End With

End Sub

Espero que te sirva.