Dim i As Integer Dim d As Double For i = 0 To 100 d = i * 0.75 If (d Mod X) Then MsgBox "tamsayı" Next