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