zufallszahl(s1(i), s2(i), eg(i))

Public Function zufallszahl(ByRef zahl_1 As Integer, ByRef zahl_2 As Integer, _
  ByRef zahl_3 As Integer) As Integer
        Dim Rnd As New System.Random
s_1:    zahl_1 = CInt(Rnd.Next(10000, 100000000)) ' Zufallszahl zwischen 10000 
' und 99999999
        If gerade_zahl(zahl_1) = False Then GoTo s_1 'Prüfen ob Zahl Gerade ist
        zahl_2 = CInt(Rnd.Next(100, 10000))  'Zufallszahl zwischen 100 und 9999
        zz = 1
s_2:    If zahl_2 > 9999 Or zahl_2 < 100 Then zz = zz * (-1) 'Test ob nach 
' Hinzufügen oder Abzug von ZZ die Zahl innerhalb des Zahlenfenster ist
        zahl_2 = zahl_2 - zz
        If Int(zahl_1 / zahl_2) <> zahl_1 / zahl_2 Then GoTo s_2 ' Prüfen ob 
        ' nach Division eine Ganzzahl vorhanden ist
        zahl_3 = CInt(zahl_1 / zahl_2)
    End Function