Imports System

​

Public Module Module1

​

    Sub Welcoming()

        Dim Answer As String

        Console.WriteLine("Knight: " & "Hello! Right this way sir.")

        Console.WriteLine("'You see a Sketchy looking man in the corner of your eye. Do You, A: Carry on to the king or B: check out the sketchy guy?'")

        Answer = Console.Readline()

        If Answer = "A" Then 

            Console.WriteLine("You chose to carry on to the king")

        ElseIf Answer = "B" Then 

            Console.Writeline("Ha loser! Come back when you become big peepee")

            End If

    End Sub

End Module

​