' What is output of the following code?

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim a As Integer = 1 

        Dim b As Integer = 1 

        do While a < 3 

            b = b + a 

            a += 1 

        Loop 

        'Resultlabel.Text = b 

        Console.WriteLine(b)

    End Sub

End Module