Imports System

Public Module Module1

    Public Sub Main()

        Dim mark as integer

        Dim grade as char

        dim name as string

        dim another as string = "y"

        do while another = "y" OR another = "Y"

            console.WriteLine("What is your name?")

        name=console.ReadLine()

            Console.WriteLine("How many marks did you get on your test, " & name & "?")

        mark=console.readline()

    If mark >=80 then

            grade = "A"

    elseif mark >=70 then

            grade = "B"

    elseif mark >=60 then

            grade = "C"

    elseif mark >=50 then

            grade = "D"

    elseif mark >=40 then

            grade = "E"

    elseif mark >=30 then

            grade = "F"

    else

            grade = "U"

    end if

            console.writeline("You got a " & grade & " as your grade, " & name & ".")

            console.WriteLine("Would you like another go " & name & "?")

            another=console.ReadLine()

            loop

        console.WriteLine("Goodbye")

    End Sub

End Module