Public Sub Main() Dim l As Long Dim s As String ' Le coercizioni coerenti non causano errori' l = "123456" Print l s = 123456 Print s ' Quelle incoerenti si' l = "abcdef" Print lEnd