Dim Anzahl As Long, ZeilenNr As Long, Zeile As Long, RetVal As String
' Anzahl der Zeilen ermitteln
Open App.Path & "\index.dat" For Input As #1
Anzahl = 0
Do While Not EOF(1)
    Line Input #1, RetVal
    Anzahl = Anzahl + 1
Loop
' Zufaellige Zeile aussuchen
Randomize Timer
ZeilenNr = Int(Anzahl * Rnd) + 1
Close #1
' Ermittelte Zufallszeile auslesen und in RetVal speichern
Open App.Path & "\index.dat" For Input As #2
    LineToRead = ZeilenNr
    While Not EOF(2) And Zeile < LineToRead
    Zeile = Zeile + 1
    Line Input #2, RetVal
    Wend
Close #2