Do Until zwstr1 Is Nothing
        zwstr1 = sr.ReadLine
        If (zwstr1 IsNot Nothing) Then
            Do While (zwstr1.Length < 85)
                zwstr1 = zwstr1 & " "
            Loop
            If (zwstr1.Length > 85) Then
                zwstr1 = zwstr1.Substring(0, 85)
            End If
            zwstr &= zwstr1 & vbNewLine
        End If
    Loop

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist