Imports System

Public Module Module1

    Public Sub Main()

        'Creates a username and password variables

            dim username as string

            Console.writeline ("Please enter username")

            username = Console.readline()

        DIM password AS STRING

        Console.writeline("Now enter password")

        password = console.readline()

        'Needs both password and username to work

        If username = "20NashE?" Then

            If Password = "Wh4oK/L" Then

                'Doesn't show what was wrong so it makes it harder to hack into         

            Console.Writeline("Welcome back") 

            Dim a, b, c as integer

                console.writeline("Please enter the first value")

                a = console.ReadLine()

                console.writeline("Please enter second value")

                b = console.readline()

                c = a / b

                console.writeline("The answer is " &c)  

            Else

                Console.writeline("Please try again")   

            end if

        End if

        End Sub

End Module