Imports System

Public Module Module1

    Public Sub Main()

        dim count, number, total as integer

        count = 0

        number = -1

        total = 0

        Do while count < 4

            count = count + 1

            number = number + 2

            total = total + number 

            console.WriteLine(total)

        loop

        console.ReadLine()

    End Sub

End Module