Imports System

Public Module Module1

    Public Sub Main()

        dim TS as integer

        dim average as integer

    Console.WriteLine("Please enter test score")

        TS=console.ReadLine()

    console.WriteLine("Please enter second test score")

    TS=console.ReadLine()

    console.WriteLine("Please enter thrid test score")

    TS = console.ReadLine()

    average=TS+TS+TS/3

    if average<30% then console.WriteLine(average + "Test fail")

        If average<55% and TS>31% then console.WriteLine(average + "Low score - retake needed")

            if average<69% and TS>55% then console.WriteLine(average + "Good score")

                if average>70% then console.WriteLine(average + "Excelent score")   

    End Sub

End Module

​