Displaying the integer part of a number: uses the Fix function, which returns the integer portion of a value - the value without any decimal digits
Sub GetIntegerPart() Dim MyValue As Double Dim IntValue As Integer MyValue = 123.456 IntValue = Fix(MyValue) MsgBox IntValue End Sub