Imports System

Public Module Module1

    Public Sub Main()

        dim n as string 

        Console.WriteLine("Introduzca un numero")

        n=(Console.ReadLine())  

        if (n<10)

            Console.WriteLine("el numero es menor de 10")

        else 

            if (n>10)

                Console.WriteLine("El numero es mayor de 10")

        else 

        Console.WriteLine("Error")

            end if 

        end if 

    End Sub

End Module