Public Function CodeEinruecken(Quelle As String) As String
Dim strArray() As String, Temp1 As Long, ZuerzeitEinruecken As Long
strArray = Split(Quelle, vbCrLf)
For Temp1 = 0 To UBound(strArray)
    If InStr(1, strArray(Temp1), "}") > 0 Then ZuerzeitEinruecken = _
      ZuerzeitEinruecken - 1
    strArray(Temp1) = Space(5 * ZuerzeitEinruecken) & strArray(Temp1)
    If InStr(1, strArray(Temp1), "{") > 0 Then ZuerzeitEinruecken = _
      ZuerzeitEinruecken + 1
Next
CodeEinruecken = Join(strArray, vbCrLf)
End Function