texto de un campo a un listbox

[ReViJa]

Podrías probar así:

Código:

If Len(Text1) <= 10 Then
  List1.AddItem Text1
Else
  y = 1
  Do
    List1.AddItem Mid(Text1, y, 10)
    y = y + 10
  Loop Until y >= Len(Text1)
End If

Ahora solo tienes que adaptarlo a tus necesidades.

NOTA: Revisa la función Split por si te sirve.

Espero que te sirva.
Saludos.