VBA run time error 6 'overflow'

[asifkhan]

Dear no problem with this code Sub test()
Dim a, b
Dim var As Long
a = 555
b = 555555
var = a * b
MsgBox var
End Sub