Dim i As Integer, ik As Integer, text As String
 
'Testdatei erstellen A-vs, A-rs --> Z-vs, Z-rs
For i = 0 To 25
   text = text & Chr(65 + i) & "-vs" & vbFormFeed
   text = text & Chr(65 + i) & "-rs"
   If i < 25 Then text = text & vbFormFeed
Next i
 
ik = FreeFile
Open "alphabet.txt" For Binary As #ik
Put #ik, , text
Close
 
'Testdatei lesen
ik = FreeFile
Open "alphabet.txt" For Binary As #ik
text = Space(LOF(ik))
Get #ik, , text
Close
 
'Seiten splitten
Dim seiten() As String
seiten = Split(text, vbFormFeed)
 
'Seiten in Datei schreiben
ik = FreeFile
Open "alphabet_rückwärts.txt" For Binary As #ik
For i = UBound(seiten) - 1 To 0 Step -2
   Put #ik, , seiten(i) & vbFormFeed & seiten(i + 1)
   If i > 0 Then Put #ik, , vbFormFeed
Next i
Close