Use the Int() function
Code:
MyNum = 4.52
MsgBox Int(MyNum)