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