Private Function ContainsDouble(arr() As Integer, _
                ByVal index As Integer) As Boolean
 
   'Liegen in "arr" Doppelte Werte im Bereich 0 bis index vor?
 
   Dim i%, j%
 
   If index < 0 Then index = 0
   If index > UBound(arr) Then index = UBound(arr)
 
   ContainsDouble = True
   For i = 0 To index
      For j = 0 To index - 1
         If Not i = j Then
            If arr(i) = arr(j) Then Exit Function
         End If
      Next j
   Next i
 
   ContainsDouble = False
End Function
 
Private Function GetRandomInteger _
        (ByVal min As Integer, ByVal max As Integer) As Integer
 
   'gleichverteilte Zufallszahl im Bereich min/max
 
   GetRandomInteger = Int((max - min + 1) * Rnd + min)
End Function

Dim Lotto() As Integer
Dim i, j As Integer
ReDim Lotto(5)
 
For i = 0 To 5
   Do
      Lotto(i) = GetRandomInteger(1, 49)
   Loop While ContainsDouble(Lotto, i)
Next i