Dim t$, ar$(), i&
 
'Dateien im Binärmodus öffnen
'(freie Kanalnummern besser jeweils per FreeFile ermitteln) 
Open "d:\##\test.txt" For Binary As #1
Open "d:\##\testneu.txt" For Binary As #2
 
'Einen leeren String (Spaces) in der Länge der Eingabedatei erstellen (LOF)
t = Space$(LOF(1))
'Dateiinhalt in Stringvariable einlesen (per Kanalnummer)
Get #1, , t
 
'Per split-Funktion wird der Dateiinhalt anhand des 
' Seitenvorschub-Steuerzeichens
'in einzelne Seiten aufgespalten und diese Seiten werden in einem String-Array
'abgelegt: ar(0) = Seite1, ar(1) = Seite2, usw.
ar() = Split(t, vbFormFeed$)
 
'Dieses Array wird nun in einer Schleife rückwärts durchlaufen 
'(angefangen bei Ubound = Zahl der Seiten-1) per: Step -1 
For i = UBound(ar) To 0 Step -1
  'Jede Seite wird per rückwärts laufendem Index ausgegeben
  '(der Seitenvorschun ist beim Split entfernt worden und kommt jetzt wieder 
  ' dazu)  
  Put #2, , ar(i) & vbFormFeed$
Next i
 
'Wenn Sie Dateinummerliste nicht angeben, werden alle aktiven 
'und mit der Open-Anweisung geöffneten Dateien geschlossen (VB-DOKU).
Close