Imports System

Public Module Module1

    Public Sub Main()

        Dim name as string = ""

        Console.WriteLine("Hello who is you?")

        Name = Console.ReadLine()

        Dim username as string = ""

        Dim password as string = "Doggy" 

        Console.WriteLine("What is your username?")

        Username = Console.ReadLine()

        Console.WriteLine("What is your password?")

                password = console.ReadLine()

            Do while password <> "Doggy"

            Console.WriteLine("Bro thats wrong ( ͡ᵔ ͜ʖ ͡ᵔ )")

            password = Console.ReadLine()

                If password = "Doggy" then 

            Console.WriteLine(" You did it with the power of friendship ( ͡~ ͜ʖ ͡°)")

            Else if password <> "" Then

                    Console.WriteLine("UMMMMMMMM.")

        End if  

        Loop

    End Sub

End Module