Tell me the reason

[gorthims]

If i run the following code it gives an error. why?

Private Sub Command1_click()

Dim b as Long

b=30*4000

MsgBox b

End Sub