Imports System

Public Module Module1

    Public Sub Main()

        dim x as integer=1

    while x<=5

            console.WriteLine(welcome)

            x=x+1

        end while

    End Sub

End Module