Imports System

Public Module Module1

    Public Sub Main()

        Dim a As integer = 1

        while a <= 4

            Console.Write("welcome.")

            a = a + 1

        end while

    End Sub

End Module