If Integer Do Something

[Muratti]

I have a division in my code. I am trying to say if the division ends in integer, do something. For example,
Dim x as Integer
Dim y as Integer
if x/y= Integer???
do bla bla bla.
Thanks.

[Colo]

Hi. Here is sample what I made.
Pls try this.

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