Imports System Module M Dim a() as Long() Sub Main () End Sub End Module