Dim i = 10
i = "Замечательная строка"

Dim i = 10 ' Integer
Dim i1 = 10.1 ' Double
Dim s= "Замечательная строка" ' String

Option Infer Off

Module Module1

    Sub Main()
        Dim i ' Nothing
        Dim j ' Nothing

        i = 10 ' Integer
        Console.WriteLine(String.Format("{0} - {1}", i, i.GetType.ToString()))

        i = "Замечательная строка" ' String
        Console.WriteLine(String.Format("{0} - {1}", i, i.GetType.ToString()))

        Console.ReadKey()

        For j = i To 20 ' ArgumentException
            Console.WriteLine(j)
        Next

        Console.ReadKey()
    End Sub

End Module

For j = i To 20' ArgumentException

For j = "Замечательная строка" To 20' ArgumentException