Function ChekKorridors()
Dim a As Byte, b As Byte, c As Byte, d As Byte
a = ThisWorkbook.Worksheets("Temp and RH").Cells(7, 9)
b = ThisWorkbook.Worksheets("Temp and RH").Cells(7, 10)
c = ThisWorkbook.Worksheets("Temp and RH").Cells(7, 11)
d = ThisWorkbook.Worksheets("Temp and RH").Cells(7, 12)

'         1 вариант - отрабатывает верно

    If UserForm1.ComboBox2.Value < a Then
        MsgBox "Entered parameters (1) are out of range", vbCritical, "Error"
    End If

    If UserForm1.ComboBox4.Value > b Then
        MsgBox "Entered parameters (2) are out of range", vbCritical, "Error"
    End If

    If UserForm1.ComboBox3.Value < c Then
        MsgBox "Entered parameters (3) are out of range", vbCritical, "Error"
    End If

    If UserForm1.ComboBox5.Value > d Then
        MsgBox "Entered parameters (4) are out of range", vbCritical, "Error"
    End If
    
'         2 вариант - отрабатывает верно

    If UserForm1.ComboBox2.Value < a _
    Or UserForm1.ComboBox4.Value > b _
    Or UserForm1.ComboBox3.Value < c _
    Or UserForm1.ComboBox5.Value > d Then
        MsgBox "Entered parameters are out of range", vbCritical, "Error"
        ChekKorridors = 0
    Else
        ChekKorridors = 1
    End If
    
'         3 вариант - отрабатывает не верно

    If UserForm1.ComboBox2.Value < ThisWorkbook.Worksheets("Temp and RH").Cells(7, 9).Value _
    Or UserForm1.ComboBox4.Value > ThisWorkbook.Worksheets("Temp and RH").Cells(7, 10).Value _
    Or UserForm1.ComboBox3.Value < ThisWorkbook.Worksheets("Temp and RH").Cells(7, 11).Value _
    Or UserForm1.ComboBox5.Value > ThisWorkbook.Worksheets("Temp and RH").Cells(7, 12).Value Then
        MsgBox "Entered parameters are out of range", vbCritical, "Error"
        ChekKorridors = 0
    Else
        ChekKorridors = 1
    End If

End Function

Option Explicit
Option Base 1
Dim globalFlag As Boolean

Private Sub UserForm_Initialize()
    Label1.Caption = "enter the name of 1 group"
End Sub

Private Sub UserForm_Activate()
Dim a, i As Integer
a = UserForm1.ComboBox2.Value
ReDim NameGroup(a)
globalFlag = False
    For i = 1 To a
        
        Label1.Caption = "enter the name of " & i & " group"
        NameGroup(i) = TextBox1.Value
        
        DoEvents
        
        ' MsgBox ("name of " & i & " group saved"), vbInformation
        If globalFlag = True Then globalFlag = False
    
    Next i
End Sub

Private Sub CommandButton1_Click()
    globalFlag = True
End Sub

Public Sub poisk()

Dim length, s, i, A As Long
Dim chars(), TotArr() As Variant
Dim str, CountRow As String
s = InputBox("введите значения для поиска")

CountRow = Application.CountA(ActiveSheet.Range("A:A")) - 1

ReDim TotArr(1 To CountRow) As Variant
For A = 1 To CountRow
length = Strings.Len(Cells(A + 1, 1))

    ReDim chars(1 To length) As Variant
        For i = 1 To length
            If Information.IsNumeric(Strings.Mid(Cells(A + 1, 1), i, 1)) Then
                chars(i) = Strings.Mid(Cells(A + 1, 1), i, 1)
            End If
        Next i
        str = Application.Trim(Strings.Join(chars))
        str = CDbl(str)
        TotArr(A) = str

Next A


End Sub