Option Explicit
Dim sWords() As String

' Einlesen der Wörter in ein String-Array
Dim sBuffer As String
Dim F As Integer
 
F = FreeFile
Open "DeineDatei.txt" For Binary As #F
sBuffer = Space$(Lof(F))
Get #F, , sBuffer
Close #F
 
' Inhalt in String-Array splitten
sWords = Split(sBuffer, vbCrLf)

' Sicherstellen, daß bei jedem Start wirklich
' eine neue Zufallszahl generiert wird
Randomize -Timer
 
Dim nMax As Integer
nMax = UBound(sWords) + 1
 
' Zufallszahl im Bereich 1 bis nMax
Dim Zahl As Integer
Zahl = Int(nMax * Rnd + 1)
 
' Wort ausgeben
MsgBox sWords(Zahl - 1)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de