Imports System

Public Module Module1

    Public Sub Main()

        dim Npassword as string

        dim Password as string

        Console.WriteLine("Please set your Password")

        Npassword = Console.ReadLine()

        Console.WriteLine("Please enter you Password to Login")

        Password = Console.ReadLine()

        while password <> Npassword 

            Console.WriteLine("Incorrect Password try again")

        end while

        console.WriteLine(" Welcome to the world")

    End Sub

End Module