Overflow error. Why?

[marlonsaveri]

We need use CLng()

Sub test()
Dim x As Long
x = CLng(3600) * 24
MsgBox x
End Sub