 <p>You just had your logic wrong. This should work for you.</p> <pre><code>Do While E1 &lt; 4 OrElse E1 Mod 2 &lt;&gt; 0 E1 = CInt(Int((11 * Rnd()) + 1)) Loop Do While E1 Mod E2 &lt;&gt; 0 OrElse _ E2 = 1 OrElse _ E2 = 0 OrElse _ E1 = E2 E2 = CInt(Int((11 * Rnd()) + 1)) Loop </code></pre>