Module IfDemo Sub Main() Dim i as Integer, res as Integer i = Cint(InputBox("Type a number")) If i < 0 Then res = -1 Console.WriteLine("i is negative") Elseif i = 0 res = 0 Console.WriteLine("i is zero") Else res = 1 Console.WriteLine("i is positive") End If Console.WriteLine(res) End Sub End Module