Private EinZeichen As String * 1
 
Private Sub Schreiben(ByVal PfadDatei As String, ByVal MeinText As String)
Dim i As Long
MeinText = MeinText & Space$(100 - Len(MeinText))
Open PfadDatei For Random As #1 Len = Len(EinZeichen)
For i = 1 To 100
    EinZeichen = Mid$(MeinText, i, 1)
    Put #1, LOF(1) + 1, EinZeichen
Next
Close #1
End Sub
 
Private Function Lesen(ByVal PfadDatei As String) As String
Dim i As Long
Open PfadDatei For Random As #1 Len = Len(EinZeichen)
For i = 100 To 1 Step -1
    Get #1, LOF(1) + 1 - i, EinZeichen
    Lesen = Lesen & EinZeichen
Next
Close #1
End Function