Sub GetIntegerPart() Dim MyValue As Double Dim IntValue As Integer MyValue = 123.456 IntValue = Fix(MyValue) MsgBox IntValue End Sub