Imports System

Public Module Module1

    Public Sub Main()

        Dim x as integer =1 

        While x<=4 

            console.WriteLine("welcome")

            x=x+1

        end while

        End Sub

End Module