Не работает проверка на заполнение нескольких TextBox

If TextBox1 <> "" Or TextBox2 <> "" Or TextBox3 <> "" Or TextBox4 <> "" Or TextBox5 <> "" Or TextBox6 <> "" Or TextBox7 <> "" Or TextBox8 <> "" Or TextBox9 <> "" Or TextBox10 <> "" Or TextBox11 <> "" Or ComboBox1 <> "" Or ComboBox2 <> "" Then
If TextBox10 < 24 And TextBox11 < 60 Then
time1 = TextBox10.Value + ":" + TextBox11.Value
Else
MsgBox ("Âðåìÿ ââåäåíî íåêîððåêòíî")
End If
Sheets("Îôîðìëåíèå").Cells(1, 4) = TextBox1.Value
Sheets("Îôîðìëåíèå").Cells(2, 2) = TextBox2.Text
Sheets("Îôîðìëåíèå").Cells(3, 2) = TextBox3.Value
Sheets("Îôîðìëåíèå").Cells(4, 2) = TextBox4.Value
Sheets("Îôîðìëåíèå").Cells(5, 2) = adres
Sheets("Îôîðìëåíèå").Cells(6, 2) = time1
Sheets("Îôîðìëåíèå").Cells(7, 2) = Calendar1.Value
  For i = 4 To zakaz - 1 'ïðîâåðÿåì, ââåä¸í ëè íîâûé êîä çàêàçà
    If Sheets("Çàêàçû").Cells(i, 1).Value Like TextBox1.Value Then
    MsgBox "Ââåäèòå íîâîå çíà÷åíèå êîäà"
    Sheets("Çàêàçû").Cells(zakaz, 1).ClearContents
    TextBox1 = ""
    GoTo en
    Else
    Sheets("Îôîðìëåíèå").Cells(1, 4).Value = TextBox1.Value
    End If
    Next i
Else
MsgBox ("Íå âñå äàííûå ââåäåíû")
GoTo en
End If
With Sheets("Êîðçèíà")
    .Range("kor").Copy Range("Îôîðìëåíèå!A9")
   .Range("A4:F100").ClearContents
End With

If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" And TextBox7 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And TextBox11 <> "" And ComboBox1 <> "" And ComboBox2 <> "" Then