Imports System

Public Module Module1

    Public Sub Main()

        Dim dblNum1, dblNum2, dblNum3, dblNum4, dblResult, dblTotal As Double

        Console.WriteLine("Please enter your grade for term 1: ")

        dblNum1 = Console.ReadLine()

        Console.WriteLine("Please enter your grade for term 2: ")

        dblNum2 = Console.ReadLine()

        Console.WriteLine("Please enter your grade for term 3: ")

        dblNum3 = Console.ReadLine()

        Console.WriteLine("Please enter your grade for term 4: ")

        dblNum4 = Console.ReadLine()

        dblResult = (dblNum1 + dblNum2 + dblNum3 + dblNumF)

        If dblResult > 0 < 50 Then

            dblTotal = "F"

        ElseIf dblResult > 59 < 60 Then

            dblTotal = "D"

        ElseIf dblResult > 69 < 70 Then

            dblTotal = "C"

        ElseIf dblResult > 79 < 90 Then

            dblTotal = "B"

        ElseIf dblResult > 89 < 101 Then

            dblTotal = "A"  

        End If

        Console.WriteLine("Your final grade is an " & dblTotal)

    End Sub

End Module