Imports System

Public Module Module1

    Public Sub Main()

              Dim firstname As String 

              Dim lastname As String

        Dim displayname As String

        Dim age As Integer 

        Console.WriteLine("hello Gamer.")

        console.writeLine("welcome to blind fighters.")

        console.writeLine("So that we can ensure the saftey of our customers, please fill in the following information.")

        Console.WriteLine(“Please enter your first name”) 

        firstname = Console.ReadLine() 

        Console.WriteLine(“Please enter your last name”) 

        lastname = Console.ReadLine() 

        Console.WriteLine(“Please enter your age”)

        age = Console.ReadLine() 

        Console.WriteLine(“Hello “ & firstname & “ “ & lastname) 

          Console.WriteLine(" your age is " & age) 

        console.WriteLine("you have passed the test you are now free to play")

        console.WriteLine("welcome to blind fighters")

        console.WriteLine("please enter what you would like your display name to be")

        displayname = console.ReadLine()

        console.WriteLine(" your display name is " & displayname)

        console.writeline("please sit back and listen whilst we talk you through the controls of the game")

    End Sub

End Module