Public Sub RandomNumbers(ByRef Divident As Integer,
        ByRef Divisor As Integer, ByRef Quotient As Integer)
 
    Const divident_min As Integer = 10000
    Const divident_max As Integer = 99999998
    Const divisor_min As Integer = 100
    Const divisor_max As Integer = 9999
 
    Divisor = rndm.Next(divisor_min, divisor_max + 1)
    Quotient = rndm.Next(divident_min \ Divisor, divident_max \ Divisor) + 1
    Divident = Divisor * Quotient
    If Divident Mod 2 <> 0 Then
       Quotient += 1 : Divident = Divisor * Quotient
       If Divident > divident_max Then _
          Quotient -= 2 : Divident = Divisor * Quotient
    End If
End Sub