Dim Randomizer As New Random(Now.Millisecond)
 
    Public Function Zufallszahl(ByVal minZahl As Integer, ByVal MaxZahl As _
      Integer) As Integer
        Return Randomizer.Next(minZahl, MaxZahl + 1)
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov