Private Function SimTab$(Txt As String)
 
  Dim i&, Pos1&, Liste1$()
 
  Const TabWert& = 10
  Liste1 = Split(Txt, vbCr)
  For i = 0 To UBound(Liste1)
    Pos1 = 0
    Do
      Pos1 = InStr(Pos1 + 1, Liste1(i), vbTab)
      If Pos1 = 0 Then Exit Do
      Liste1(i) = Left$(Liste1(i), Pos1 - 1) & Space$(TabWert - _
        ((Pos1 - 1) Mod TabWert)) & Mid$(Liste1(i), Pos1 + 1)
    Loop
  Next i
  SimTab = Join(Liste1, vbCr)
 
End Function

  Label1.FontName = "Courier New"
  Label1.Caption = SimTab(DeinText)

Gruss,

Zardoz