Option Explicit
 Dim Zufall(1 To 6) As Integer
  Dim i As Byte
 
Private Sub Generieren_Click()
 
         Randomize
      For i = 1 To 6
 
     Zufall(i) = 1 + Int(Rnd * 49)
 
          Text1.Text = Zufall(i)
 
      Next i
 
 
End Sub