Dim i&, P1&, P2&, Txt$, Lst$()
 
  Lst = Split(Text1.Text, vbCrLf)
  P1 = 0
  For i = 0 To UBound(Lst)
    P2 = InStr(1, Lst(i), "[")
    If P2 > P1 Then P1 = P2
  Next i
 
  For i = 0 To UBound(Lst)
    Txt = Lst(i)
    If Trim$(Txt) <> "" Then
      P2 = InStr(1, Txt, "[")
      Lst(i) = Left$(Txt, P2 - 1) & Space$(P1 - P2 + 8) & Mid$(Txt, P2)
    End If
  Next i
  Text1.FontName = "Courier New"
  Txt = Join(Lst, vbCrLf)
  Text1.Text = Left$(Txt, Len(Txt) - 2)

Gruss,

Zardoz