Option Explicit
 
Dim strText As String
Dim istep As Integer
 
strText = Textbox1.text
istep = 20
 
Do While Len(strText) > 0
    If Len(strText > istep) Then      ' die gewünschte Anzahl Zeichen
        ListBox1.AddItem Left(strText, istep)
        strText = Mid(strText, istep)
    Else
        ListBox.AddItem strText        ' der Rest des Strings
    End If
Loop