time1 = 1
time2 = 365

price1 = 10
price2 = 3650
    
Answer = "      Исходные данные прямой:"
Answer = Answer + vbCrLf + "time1= " + CStr(time1)
Answer = Answer + vbCrLf + "time2= " + CStr(time2)
Answer = Answer + vbCrLf + "price1= " + CStr(price1)
Answer = Answer + vbCrLf + "price2= " + CStr(price2)
Answer = Answer + vbCrLf


Do
    Ttime = InputBox(Answer + vbCrLf + "Ведите координату Ttime точки")
    If Ttime = "" Then Exit Do
    Ttime = CDbl(Replace(Ttime, ".", ","))
    
    Answer1 = Answer + vbCrLf + "      Исходные данные точки:"
    Answer1 = Answer1 + vbCrLf + "Ttime= " + CStr(Ttime)
    
    Tprice = InputBox(Answer1 + vbCrLf + "Введите координату Tprice точки")
    If Tprice = "" Then Exit Do
    Tprice = CDbl(Replace(Tprice, ".", ","))
    
    Price = price1 + (Ttime - time1) * (price2 - price1) / (time2 - time1)
    
    Answer1 = Answer1 + vbCrLf + "Tprice= " + CStr(Tprice)
    Answer1 = Answer1 + vbCrLf
    Answer1 = Answer1 + vbCrLf + "      Ответ:"
    Answer1 = Answer1 + vbCrLf + "Для точки на прямой Ttime= " + CStr(Ttime)
    Answer1 = Answer1 + vbCrLf + "                                        Price= " + CStr(Price)
    
    If Tprice = Price Then Znak = "="
    If Tprice < Price Then Znak = "<"
    If Tprice > Price Then Znak = ">"
    
    Answer1 = Answer1 + vbCrLf + "Tprice=" + CStr(Tprice) + Znak + "Price=" + CStr(Price)
    MsgBox Answer1
Loop