Module Module1

    Sub Main()
        System.Console.WriteLine("Burning Fires. Enter your name.")
        Dim Name = System.Console.In.ReadLine()
        System.Console.WriteLine("Burning Fires. Name set to " & Name & ". Enter your password.")
        Dim Password = System.Console.In.ReadLine()
        System.Console.WriteLine("Burning Fires. Name: " & Name & "  Password: " & Password & ".")
        System.Console.WriteLine("")
        System.Console.WriteLine("********************")
        System.Console.WriteLine("Enter your name, then password.")
        System.Console.WriteLine("********************")
        If (System.Console.In.ReadLine() = Name) Then
            System.Console.WriteLine("*********Name Accepted.***********")
            If (System.Console.In.ReadLine() = Password) Then
                System.Console.WriteLine("*********Password Accepted. Access Granted.***********")
            Else
                System.Console.WriteLine("*********Password Declined. Restart Required.***********")
            End If
        Else
                System.Console.WriteLine("*********Name Declined. Restart Required.***********")
        End If
        System.Console.WriteLine("")
        System.Console.WriteLine("********************")
        System.Console.WriteLine("Beginning Command Prompt.")
        System.Console.WriteLine("********************")
        System.Console.WriteLine("")
        Shell("cmd")
        System.Console.WriteLine("start cmd")
    End Sub

End Module