Public Sub Einruecken(Ary() As String)
  Dim nLine As Long       'Zeilennummer
  Dim nSpace As Long      'Leerzeichen
 
  For nLine = 0 To UBound(Ary)
    'Bei schliessenden Klammer werden 5 Leerzeichen entfernt
    If InStr(Ary(nLine), "}") > 0 Then nSpace = nSpace - 5
 
    'Leerzeichen werden am der Zeile vorne an gesetzt
    Ary(nLine) = Space(nSpace) & Ary(nLine)
 
    'Bei öffnende Klammer werden 5 Leerzeichen addiert
    If InStr(Ary(nLine), "{") > 0 Then nSpace = nSpace + 5
  Next
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.