Module M
	Sub Main()
		Dim a 'Default type assigned is Object
		a!=10 'Single type character does not conform with assigned type Object
		
		Dim b As Single
		b!=10 'Long type character does not conform with assigned type Integer
		
		Dim c !

	End Sub
End Module