Imports System

Public Module Module1

    Public Sub Main()

        Dim L10 as string

        L10 = "Larger than 10."

        Dim S10 as string

        S10 = "Smaller than 10."

        Dim E10 as string

        E10 = "Equal to 10."

        Dim input as decimal

        input = console.ReadLine()

        If input > 10 then console.WriteLine(L10)

        If input < 10 then console.WriteLine(S10)

        If input = 10 then console.WriteLine(E10)

    End Sub

End Module