Imports System

​

Public Module Quiz

    Public Sub Main ()

    Dim answer as string

    Dim score as integer 

    Dim option as string 

    do 

        Console.WriteLine("question one- which of these is catfishing")

        Console.WriteLine("A-bullying some one.B-being some one you are not.C-scamming some one.")

        answer=Console.ReadLine()

        If answer="B" or answer = "b" Then

            console.writeline("that is correct")

            score=score+1 

        ElseIf  answer= "A" or answer= "a" or answer= "C" or answer= "c" 

            console.writeline("incorrect")

        else 

            Console.WriteLine("Invalid answer.")

        End If

​

Loop Until answer = "B" or answer = "b"

        End Sub

End Module