Получить число и определить, попадает ли оно в диапазон - VB

Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim S As Single   
 
Console.WriteLine("Введите число")
S = Console.ReadLine()
 
If S >= 5 And S < 15 Then 
    Console.WriteLine("Число " & S & " попадает в полуинтервал [5;15)")
Elseif S > 25 And S <= 35 Then
    Console.WriteLine("Число " & S & " попадает в полуинтервал (25;35]")
Else 
    Console.WriteLine("Число " & S & " не попадет ни в полуинтервал [5;15), ни в полуинтеравал (25;35]")
End If 
 
Console.ReadKey()
End Sub