Or just:If Int(DoubleVar) = DoubleVar then MsgBox("DoubleVar is a whole number")
If Int(DoubleVar) = DoubleVar then MsgBox("DoubleVar is a whole number")