Dim Zeilen As Long, Zeile As Long, RetVal As String
 
' erst mal die Zeilen zählen
Open Datei For Input As #1
 
Do
  Line Input #1, RetVal
  Zeilen = Zeilen + 1
Loop Until EOF(1)
 
' jetzt die zufällige Zeile bestimmen
Zeile = Int(Rnd * Zeilen) + 1
Zeilen = 0
 
' dann die Zeile holen
Do
  Zeilen = Zeilen + 1
  Line Input #1, RetVal
  If Zeilen = Zeile Then Exit Do
Loop Until EOF(1)
 
Close #1

Gruß
Marcus