Dim name(500) As String
Dim i As Integer
i=0
 
'Textdatei einlesen
Open "C:\namen.txt" For Input As 1
    While Not EOF(1)
    i=i+1
      Line Input #1, name(i)
    Wend
 Close 1
 
'Zufallsname erzeugen
Dim x as Integer
x=CInt(RND*500)
 
'Ausgabe
Label1.Caption=name(x)