Как правильно распечатать конечный результат?

---

напишите программу, которая преобразует буквенную оценку в числовую
используя следующую шкалу:
Если числовая оценка равна 90 или более, то это
80 или более это B
70 или более это с
60 или более это D
и меньше чем 60 это F
Введите свою числовую оценку через окно консоли
выведите как числовую оценку, так и буквенную оценку на отдельных строках

У меня такое чувство, как будто я усложнил свою программу и сделал ее неправильно. распечатка не верна. показ:

the value of A
90
the value of B
89
the value of C
79
the value of D
69
the value of F
59
the value of A   90
the value of B   89
the value of C   79
the value of D   69
the value of F   59
Press any key to continue

how do I simplify this and write it correctly. I do not want the answer directly just a guide for the right way to write this.

What I have tried:

<pre>odule Module1

    Sub Main()
        Dim A, B, C, D, F As Decimal
        ' A,B,C, D, F to convert numerically 
        Console.WriteLine("the value of A")
        A = Console.ReadLine()
        Console.WriteLine("the value of B ")
        B = Console.ReadLine
        Console.WriteLine("the value of C ")
        C = Console.ReadLine
        Console.WriteLine("the value of D ")
        D = Console.ReadLine
        Console.WriteLine("the value of F ")
        F = Console.ReadLine
        If A <> 90 Then A = 100
        If B <> 80 Then B = 89
        If C <> 70 Then C = 79
        If D <> 60 Then D = 69
        If F <> 0 Then F = 59

        Console.WriteLine("the value of A   " & A)
        Console.WriteLine("the value of B   " & B)
        Console.WriteLine("the value of C   " & C)
        Console.WriteLine("the value of D   " & D)
        Console.WriteLine("the value of F   " & F)

        Console.WriteLine("Press any key to continue")
        Console.Read()

    End Sub

End Module

---