Que tal mamicho.
De la siguiente manera sabes que elementos estas seleccionados.
Código:
Dim msg As String
Dim li As ListItem
msg = ""
For Each li In ListBox1.Items
If li.Selected = True Then
msg = msg & "<br>" & li.Text & " selected."
End If
Next
Label1.Text = msg
Ahora depende de tí, si todos serán guardados en un sólo campo o diferentes campos.
Saludos.