Dim Text() As String
Dim Zufall(5) As Integer
 
Private Sub Command1_Click()
  Dim ElemCount As Long
  Dim ElemUBound As Long
  Dim Elem As String
 
NR = FreeFile
Open "C:\DeineDatei.txt" For Input As #NR
While Not EOF(NR)
    ElemCount = ElemCount + 1
    If ElemCount > ElemUBound Then
      ElemUBound = 2 * ElemCount
      ReDim Preserve Text(ElemUBound)
    End If
  Line Input #NR, Elem
  Text(ElemCount) = Elem
Wend
Close #NR
  ReDim Preserve Text(ElemCount)
Call Zufall_Eins
Text1 = Text(Zufall(1))
Text2 = Text(Zufall(2))
Text3 = Text(Zufall(3))
Text4 = Text(Zufall(4))
Text5 = Text(Zufall(5))
End Sub
 
Private Sub Zufall_Eins()
Randomize -Timer
 
Dim Ziehung As Integer
Dim i As Integer
Dim Result As Boolean
Dim Zahl As Integer
 
Ziehung = 0
While Ziehung < 5
  Ziehung = Ziehung + 1
  Do
    Zahl = Int(UBound(Text) * Rnd + 1)
    Result = True
    For i = 1 To Ziehung - 1
      If Zufall(i) = Zahl Then
        Result = False: Exit For
      End If
    Next i
  Loop Until Result = True
  Zufall(Ziehung) = Zahl
Wend
 
End Sub