Module M
	Sub Main()
		Dim a 'Default type assigned is Object
		a&=10 'Long type character does not conform with assigned type Object
		
		Dim b As Long
		b$=10 'String type character does not conform with assigned type Long

		Dim c &
	End Sub
End Module
