Sub longDemo() Dim intNumber As Integer Dim lngLongNumber As Long intNumber = 123 lngLongNumber = 123456 End Sub