Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim sum as integer

        sum=console.ReadLine()

        sum=sum*2

        If sum > 1000 then

            console.WriteLine("greater than 1000")

        elseif sum > 100 then

            console.WriteLine("greater than 100")

        elseif sum > 10 then

            console.WriteLine("greater than 10")

        End If

    End Sub

End Module

​