Imports System

Public Module Module1

    Public Sub Main()

        Dim i as integer

        'assign a value to i

        i = 1

        Console.WriteLine(i)

        'increase i by 3

        i = i + 3

        Console.WriteLine(i)

        'assign a new value to i

        i = 346

        Console.WriteLine(i)

        'create a new variable and assign it a value

        dim j as integer = 6

        Console.WriteLine(j)

        i = j

        j = 15

        Console.WriteLine("I is {0}",i)

        Console.WriteLine("J is {0}",j)

    End Sub

End Module