Private myArray() as String
Private myPfad As String=DiesIstMeinPfad ' z.b. Application.StartupPath & 
' "\myFile.txt"
Private sr As StreamReader 'system.io
Private myData As String
Private ZufallsEintrag as String
 
Private Sub LoadFile()
sr=New StreamReader(MyPfad)
Dim sep as String="#*#"
Dim i as Integer=0
Do until (sr.Peek < 0) ' Wenn Du nur einen Eintrag haben willst, lass das weg!
myData=sr.ReadLine()
myArray=MyData.Split(sep)
Randomize()
i=Int(RND*myArray.Length)
ZufallsEintrag=MyArray.GetValue(i) ' Wenn Du Do nutzt, wäre es besser Du
' machst  nen Array draus (Private ZufallsEintrag() as String
' rufst dann mit ZufallsEintrag.GetValue(Positions) ab)
Loop ' siehe Do!
End Sub