Dim rndm As New Random(Now.Millisecond) 'Modulebene,nicht stets neu 
 ' deklarieren !
 
 Private Function GetLottoReihe() As List(Of Integer)
 
    'Ziehungsparameter
    Dim anzahl As Integer = 6
    Dim minval As Integer = 1
    Dim maxval As Integer = 49
 
    If maxval - minval + 1 <= anzahl Then
       Throw New InvalidOperationException("Ungeeignete Ziehungsparameter")
    End If
 
    Dim zahlen As New List(Of Integer)
    Dim zahl As Integer
 
    Do
        zahl = rndm.Next(minval, maxval + 1)
        'Wiederholungen ggf. aussondern
        If Not zahlen.Contains(zahl) Then zahlen.Add(zahl)
    Loop While zahlen.Count < anzahl
 
    Return zahlen
End Function

 Dim zahlen As List(Of Integer) = GetLottoReihe()