Mira el ejemplo, suponemos que la variable "s" es el campo donde guardaste los TextBox separados por comas:
Código:
Private Sub Command1_Click()
Dim s As String
s = "text1,text2,text3,text4,text5"
Dim a() As String
a = Split(s, ",")
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next i
End Sub
a = Split(s, " ")
Si los separaste con espacios sólo sustituye esta línea de código