Разработать программу для вычисления абсолютной температуры Т воздуха на различных высотах Н

Option Explicit
Dim h
 
Sub WhatsWheather()
        'поменял коэффициент при h (0,0065) на 0,00288 - для неразрывности графика
' Т=288,16-0,0065Н
' Т=216,16
' Т=216,16+0,00276098(Н-25000) если 25000 <= Н < 46000.
Do
h = Val(Replace(InputBox _
("Высота в километрах: ", "Ввод высоты над уровнем моря", CSng(h)), ",", "."))
Loop Until IsNumeric(h)
 
Select Case h
    Case Is < 0
        MsgBox "Высота ниже уровня моря, функция t° не задана."
    
    Case Is < 25000
        MsgBox "На высоте " & h & " км температура " & 288.16 - 0.00288 * h & " K."
    
    Case Is >= 25000
        MsgBox "На высоте " & h & " км температура " & t(h) & " K."
    
    Case Is >= 46000
        MsgBox "Высота от 46 км и более: температура не определена."
End Select
End Sub
 
Function t(h) 'функция зависимости t (по Кельвину) от высоты h (в км)
t = 216.16 + 0.00276098 * (h - 25000)
End Function