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

		Dim c #

		
	End Sub
End Module