Imports System

Public Module Module1

    Public Sub Main()

        dim a as integer

        Console.WriteLine("input a number")

        a = Console.ReadLine()

        if a > 10 then

            Console.WriteLine("Larger than 10")

        else if a < 10 then

                Console.WriteLine("Smaller than 10")

                else 

                Console.WriteLine("input = 10")

            end if

    End Sub

End Module