Module Module1
    'UCAS Grade Converter - Samdb
    Sub Main()
        Dim g1, g2, g3, g4 As String
        Dim s1, s2, s3, s4 As String
        Dim v1, v2, v3, v4 As String
        Dim total As Integer
        'Subject Input
        Console.WriteLine("Enter your first subject")
        s1 = Console.ReadLine()
        Console.Clear()

        Console.WriteLine("Enter your second subject")
        s2 = Console.ReadLine()
        Console.Clear()

        Console.WriteLine("Enter your third subject")
        s3 = Console.ReadLine()
        Console.Clear()

        Console.WriteLine("Enter your fourth subject")
        s4 = Console.ReadLine()
        Console.Clear()

        Console.WriteLine("Your subjects are " & s1 & ", " & s2 & ", " & s3 & " and " & s4 & "")
        Console.ReadKey()
        Console.Clear()

        'Grade Dialog
        Console.WriteLine("Below is a table for your grades, find the corresponding value and enter it as it is displayed on screen")
        Console.WriteLine("A - 1")
        Console.WriteLine("B - 2")
        Console.WriteLine("C - 3")
        Console.WriteLine("D - 4")
        Console.WriteLine("E - 5")
        Console.WriteLine("U - 0")
        Console.WriteLine()
        'Grade Input
        Console.WriteLine("Enter your grade for " & s1 & "")
        g1 = Console.ReadLine

        Console.WriteLine("Enter your grade for " & s2 & "")
        g2 = Console.ReadLine

        Console.WriteLine("Enter your grade for " & s3 & "")
        g3 = Console.ReadLine

        Console.WriteLine("Enter your grade for " & s4 & "")
        g4 = Console.ReadLine

        Select Case g1
            Case Is < 2
                v1 = 100
            Case Is < 3
                v1 = 90
            Case Is < 4
                v1 = 80
            Case Is < 5
                v1 = 70
            Case Is < 6
                v1 = 60
            Case Is < 0
                v1 = 0
        End Select

        Select Case g2
            Case Is < 2
                v2 = 100
            Case Is < 3
                v2 = 90
            Case Is < 4
                v2 = 80
            Case Is < 5
                v2 = 70
            Case Is < 6
                v2 = 60
            Case Is < 0
                v2 = 0
        End Select

        Select Case g3
            Case Is < 2
                v3 = 100
            Case Is < 3
                v3 = 90
            Case Is < 4
                v3 = 80
            Case Is < 5
                v3 = 70
            Case Is < 6
                v3 = 60
            Case Is < 0
                v3 = 0
        End Select

        Select Case g4
            Case Is < 2
                v4 = 100
            Case Is < 3
                v4 = 90
            Case Is < 4
                v4 = 80
            Case Is < 5
                v4 = 70
            Case Is < 6
                v4 = 60
            Case Is < 0
                v4 = 0
        End Select
        'Total currently displayed as 1008070 etc - Not functioning correctly
        total = v1 + v2 + v3 + v4
        Console.WriteLine("" & total & "")
        Console.ReadKey()
    End Sub

End Module