Задание написать скрипт: который при введении температуры. Будет выводить: жарко, тепло, холодно и мороз

Option Explicit
 
Dim T, Msg
Do While InTemp(T)
    Select Case True
        Case T < -273.15: Msg = "Введенное значение меньше абсолютного нуля -273.15"
        Case T < -89.2: Msg = "Введенное значение меньше зарегистрированного минимума -89.2"
        Case T < -40: Msg = "Экстремально сильный мороз"
        Case T < -30: Msg = "Сильный мороз"
        Case T < -5: Msg = "Мороз"
        Case T < 10: Msg = "Холодно"
        Case T < 25: Msg = "Тепло"
        Case T < 35: Msg = "Жарко"
        Case T < 40: Msg = "Очень жарко"
        Case T < 56.7: Msg = "Экстремальная жара"
        Case T >= 56.7: Msg = "Введенное значение больше зарегистрированного максимума 56.7"
    End Select
    MsgBox Msg
Loop
 
Function InTemp(T)
    Dim Absolute: Absolute = -273.15
    Dim TempMin: TempMin = -89.2
    Dim TempMax: TempMax = 56.7
    Dim sIn
    InTemp = False
    T = Null
    Do
        sIn = InputBox("Введите значение температуры:", "Ввод данных. Пустой ввод или Cancel- отмена задачи")
        If sIn = "" Then Exit Function
        InTemp = IsNumeric(sIn)
        If InTemp Then
            T = CDbl(sIn)
            Exit Function
        End If
        MsgBox "Введено не число  """ + sIn + """", 16, "Контроль ввода"
    Loop
End Function