Imports System

Public Module Module1

    Public Sub Main()

        dim x as string = Console.ReadLine()

        If x = "" then Console.WriteLine("ERROR") 

            end if

            If x = -10000 to -100000 then Console.WriteLine("Numeric check")

            End if

    End Sub

End Module