Hallo,
schreib Dir mal in eine Textdatei ‚Worte.txt‘ eine Reihe Wörter, je ein Wort in eine Zeile, in die erste Zeile schreibst Du eine Zahl, die angibt, wie viele Wörter in der Textdatei stehen.
Die Datei schreibst Du nach C:\
Das Script, das die Datei liest und bei einem zufällig gewählten Wort damit aufhört, sieht bei mir dann so aus:
Randomize Timer
Const ForReading = 1
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\Worte.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
n = ts.ReadLine
r=int(rnd(1)\*n)+1
for i = 1 to r
txt = ts.ReadLine
next
ts.Close
MsgBox txt
Leider habe ich von VBS auch keine Ahnung, sonst wäre die Lösung sicher schöner geworden. So lange Du keinen besseren Code bekommst, funktioniert der wenigstens. 
Gruß, Rainer
PS: Zusammengeschraubt habe ich das mit der Hilfe ‚script56.chm‘ von Microsoft.