Как расчитать мощность ТЭНа - VB

Формулировка задачи:

Здравствуйте ребята! поправьте формулу вроде проста а ввела в затруднее, конечный итог должен быть=11,55, почемуто высчитывает 0,1925

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim tk As Single, m As Single, T As Single, P As Single, th As Single
 
Private Sub Command1_Click()
m = Text1.Text 'маса
tk = Text2.Text 'начальная температура
th = Text3.Text 'конечная температура
T = Text4.Text 'время нагрева
P = 0.0011 * m * (th - tk) / T 'расчет
Text5.Text = P ' итого
End Sub

Решение задачи: «Как расчитать мощность ТЭНа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim tk As Single, m As Single, T As Single, P As Single, th As Single
Private Sub Form_Load()
    m = 50 'маса
    tk = 10 'начальная температура
    th = 80 'конечная температура
    T = 20 'время нагрева в минутах
    T = T / 60 'переводим в часы
    P = 0.0011 * m * (th - tk) / T 'расчет
End Sub