Не срабатывает код - VB

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

Не пойму почему не срабатывает код, при нажатии на кнопку должен производится расчет, на пустые текстовые поля msgbox срабатывает, а при заполнении полей расчет код для расчета не срабатывает!

Private Sub Command1_Click()
 If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" And Text5.Text = "" Then
message = "Не все поля обязательны к заполнению заполнены!,  хотите выйти?"
title = "Ошибка ввода данных"
buttonasicons = vbYesNo + vbQuestion
response = MsgBox(message, buttonasicons, title)
If response = vbYes Then
End
If response = vbNo Then
End
m = Text1.Text 
tk = Text2.Text 
th = Text3.Text
T = Text4.Text 
T = T / 60
P = 0.0011 * m * (th - tk) / T 'расчет
Text5.Text = P ' итого
End If
End If
End If
End Sub

Решение задачи: «Не срабатывает код»

textual
                            Листинг программы 
                        

                            If response = vbYes Then
End
End If
Exit Sub
End If
                        