Private Sub Form_Load()
Do While True
x = x + 1
If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 2 Then
msgbox x
Exit Do
End If
Loop
End Su
Private Sub Form_Load()
Do While True
x = x + 1
If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 2 Then
msgbox x
Exit Do
End If
Loop
End Su