Dim Spalten&, Abstand&, i&, j&, DeinString$, Lst$(), MaxLen&(), Out$
 
DeinString = "auto,audio,atu,antilopen,auffahrt"
Lst = Split(DeinString, ",")
Spalten = 3
Abstand = 4 ' Leerzeichen
ReDim MaxLen(Spalten - 1)
For i = 0 To Spalten - 1
  For j = i To UBound(Lst) Step Spalten
    If Len(Lst(j)) > MaxLen(i) Then MaxLen(i) = Len(Lst(j))
  Next j
Next i
If ((1 + UBound(Lst)) Mod Spalten) > 0 Then ReDim Preserve Lst(UBound(Lst) + _
  Spalten - ((1 + UBound(Lst)) Mod Spalten))
Out = ""
For i = 0 To UBound(Lst)
  Out = Out & Lst(i) & Space$(MaxLen(i Mod Spalten) + Abstand - Len(Lst(i)))
  If ((i + 1) Mod Spalten) = 0 Then Out = Out & vbCrLf
Next i
Text1.Alignment = vbCenter
Text1.FontName = "Courier New" ' wichtig: keine proportionale Schriftart
Text1.Text = Left$(Out, Len(Out) - 2)

Gruss,

Zardoz