Data Type VisualBasic Script

Sub macro_overflow()
  Dim l As Integer
  l = 255 * 256   'overflow error
End Sub
Sub macro_no_overflow()
  Dim l As Long
  l = 255& * 256  'now it works
End Sub