По какой-то причине я каждый раз запускаю условие, даже если оно не проверяется.
If CC = "63165-POLIMENTO" And Format(registos.TextBox4, "#") < 0 Or Format(registos.TextBox4, "#") > ThisWorkbook.Worksheets("calculos2").Range("B4") Then
Моя проблема связана с большим и меньшим числом операторов, я считаю, что они неуместны.