Hi. Here is sample what I made.
Pls try this.
<pre>
Sub test()
Dim x As Integer, y As Integer
Do
x = Int((Rnd * 100) + 1)
y = Int((Rnd * 100) + 1)
Debug.Print "x:" & x;
Debug.Print " y:" & y;
Debug.Print " x/y= " & x / y
If x / y = Int(x / y) Then
Debug.Print "x/y is Integer"
Exit Do
Else
Debug.Print "x/y is not Integer"
End If
Loop
End Sub
</pre>