Dim max,min,l2,h2 as Decimal
Console.WriteLine("Input a number")
num(i) = Console.ReadLine()
Else If num(i) > h2 And num(i) <> max
If num(i) > min And num(i) < l2 And num(i) <> min Then
Console.WriteLine("Max is " & max)
Console.WriteLine("Min is "& min)
Console.WriteLine("2nd high is " & h2)
Console.WriteLine("2nd low is " & l2 )