Dim i
 
' Filtern/Behandeln von Rückschritt-Zeichen
Do
  i = InStr(Data, Chr$(8))
  If i Then
    If i = 1 Then
      Data = Mid$(Data, i + 1)
    Else
      Data = Left$(Data, i - 2) & Mid$(Data, i + 1)
    End If
  End If
Loop While i
 
' Entfernen von Zeilenvorschubzeichen
Do
  i = InStr(Data, Chr$(10))
  If i Then
    Data = Left$(Data, i - 1) & Mid$(Data, i + 1)
  End If
Loop While i
 
' Sicherstellen, daß auf alle Wagenrücklauf zeichen ein Zeilenvorschub folgt
i = 1
Do
  i = InStr(i, Data, Chr$(13))
  If i Then
    Data = Left$(Data, i) & Chr$(10) & Mid$(Data, i + 1)
    i = i + 1
  End If
Loop While i