<code>  Dim I As Integer
  Dim strOrdner As String
  Dim intMaxLen As Integer
  Dim arrOrdner() As String
  Dim intUbound As Integer
 
  intMaxLen = 30
 
  If Len(Text1.Text) >= intMaxLen Then
    arrOrdner = Split(Text1.Text, "\")
    intUbound = UBound(arrOrdner)
 
    <font color=green>' Letzten Ordner immer vollständig anzeigen</font>
    intMaxLen = intMaxLen - Len(arrOrdner(intUbound))
 
    <font color=green>' jetzt noch 3 Zeichen für .. abziehen</font>
    intMaxLen = intMaxLen - 3
 
    I = 0
    strOrdner = ""
    Do While I < intUbound - 1
      If Len(strOrdner) + Len(arrOrdner(I)) + 1 > intMaxLen Then
        strOrdner = strOrdner & "..\"
        Exit Do
      Else
        strOrdner = strOrdner & arrOrdner(I) & "\"
      End If
      I = I + 1
    Loop
    Text2.Text = strOrdner & arrOrdner(intUbound)
  Else
    Text2.Text = Text1.Text
  End If</code>