Imports System

Public Module Module1

    Public Sub Main()

        Dim answer As Integer

        Console.WriteLine("Maths Test")

        Console.WriteLine("**********")

        Console.WriteLine()

            Console.WriteLine("What is 8 + 16?")

            answer = CInt(Console.ReadLine)

            If answer = 24 Then

                Console.WriteLine("You are a maths star!")

            Else

                Console.WriteLine("You are not a maths star!")

            End If

    End Sub

End Module