Function Ausfiltern(Str As String) As String
Dim i As Integer
For i = 1 To (Len(Str) - 1)
  If StrComp(Mid(Str, i, 2), vbCrLf) = 0 Then 'Gucken, ob CrLf
    Ausfiltern = Ausfiltern & Chr(255)
    i = i + 1
  Else
    Ausfiltern = Ausfiltern & Mid(Str, i, 1) 'Sonst Zeichen übernehmen
  End If
Next
Ausfiltern = Ausfiltern & Mid(Str, i, 1)
End Function
 
Function Einsetzen(Str As String) As String
Dim i As Integer
For i = 1 To (Len(Str) - 1)
  If StrComp(Mid(Str, i, 1), Chr(255)) = 0 Then 'Gucken, ob Ersatzzeichen
    Einsetzen = Einsetzen & vbCrLf
  Else
    Einsetzen = Einsetzen & Mid(Str, i, 1) 'Sonst Zeichen übernehmen
  End If
Next
Einsetzen = Einsetzen & Mid(Str, i, 1)
End Function