Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Enter in this format: 'ID,Result_English,Result_Maths,Result_Science'")

        dim userinput as string

        dim userinputdata(3) as string

        dim userdata(3) as integer

        userinput = console.ReadLine()

        userinputdata = userinput.Split(",")

        for i = 0 to 3

            userdata(i) = convert.ToInt32(userinputdata(i))

        next

​

        if userdata.Length = 4 then

            if 10000 <= userdata(0) and userdata(0) <= 99999 then

                for j = 1 to 3

                    if userdata(j) > 20 and userdata(j) < 101 then

                    else

                        console.WriteLine("Invalid format")

                    end if

                next

            else

                console.WriteLine("Invalid ID")

            end if

        else

            console.WriteLine("Invalid Format")

        end if

    End Sub

End Module

​