Ya se como es, usa un tipo q no use decimales entonces haces asi mira esto en vb6 q fue lo primero q agarre a mano para mas rapido:
Private Sub Command1_Click()
Dim num As Integer, num2 As Integer
num = CInt(Text1.Text)
num2 = num / 2
If num = num2 * 2 Then
MsgBox "bien"
Else
MsgBox "mal"
End If
End Sub