Visual Basic para Aplicaciones - Problema con split

Hola tengo un problema y es lo siguiente, tengo un array cargado y quiero partirlo
para que los datos me salgan en una lista. Al cargar el array me aparecen los datos
seguidos, y luego con split lo parto pero no me lo hace.
A continuacion pongo el codigo para haber si alguien me puede ayudar...

'Codigo para cargar el array:

ReDim arrayDescripcion(0)
ReDim Preserve arrayDescripcion(0 To (UBound(arrayDescripcion)))
For i = LBound(arrayDescripcion) To UBound(arrayDescripcion)
arrayDescripcion(i) = c & " " & Reparacion(2).Text
Reparacion(2).Text = ""
MsgBox (arrayDescripcion(i))
c = arrayDescripcion(i)
Next i
'''''''''''''''''''''''''''''''''''''''''''''''''
'Codigo para almacenarlo en una lista

Form3.List1.Clear

For i = LBound(arrayDescripcion) To UBound(arrayDescripcion)
arrayDescripcion = Split(arrayDescripcion(i), vbCrLf, -1)
If arrayDescripcion(i) <> "" Then
Form3.List1.AddItem arrayDescripcion(i)
End If
Next i
MsgBox Form3.List1.Text
Form3.List1.Text = Form3.List1.List(0)
Form3.Show
Form1.Hide

Gracias y buenos dias...