I thing function INT() can help you.**********Dim b As DoubleDim i As Integerb = 10.000001i = Int(b)If i = b Theni = i +1End If*********