Imports System

Public Module Module1

    Public Sub Main()

        Dim username, answer as string 

        Do

        Console.WriteLine ("Question 1 - What is the meaning of E-Safety?   A) Staying safe online  B) A new game  C) Sharing your details with strangers

            If answer = "A" or answer = "a" then 

                Console.WriteLine ("You are correct!") 

            ElseIf answer = "B" or answer = "b" then 

                    Console.WriteLine ("Incorrect try again!") 

            ElseIf answer = "C" or answer = "c" then

                    Console.WriteLine ("Incorrect and that is very dangerous! Try again.")

            Else 

                    Console.WriteLine ("Invalid answer! Try again") 

            End If

            Loop Until answer = "A" or answer = "a" 

    End Sub

End Module