Math Functions VisualBasic Script

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