Function Count_Probel(Strocka As String) As Integer
Dim Count As Integer: Count = 0
Dim s As String: s = Strocka
Do While InStr(1, s, "  ") > 0
    s = Replace(s, "  ", " ")
Loop
Do While InStr(1, s, " ") > 0 And Len(s) > InStr(1, s, " ")
    s = Mid(s, InStr(1, s, " ") + 1, Len(s))
    Count = Count + 1
Loop
Count_Probel = Count
End Function

Sub Sravn(Base As String, Stroka_find As String, Proverca As Boolean)
Dim Pos As String
Dim i As Integer
Dim s As String
s = Stroka_find
    If Count_Probel(Stroka_find) > 0 Then
        For i = 1 To Count_Probel(Stroka_find) + 1
            Pos = InStr(1, s, " ")
            If Pos > 0 Then
                If InStr(1, LCase(Base), LCase(Mid(s, 1, Pos - 1))) Then
                    s = Mid(s, Pos + 1, Len(s))
                    Proverca = True
                Else
                    Proverca = False
                    Exit Sub
                End If
            Else
                If InStr(1, LCase(Base), LCase(s)) Then
                    Proverca = True
                Else
                    Proverca = False
                    Exit Sub
                End If
            End If
        Next i
    Else
        If InStr(1, LCase(Base), LCase(s)) Then
            Proverca = True
        Else
            Proverca = False
        End If
    End If
End Sub

Function Count_Probel_1(Strocka As String) As Integer
    Count_Probel_1 = UBound(Split(WorksheetFunction.Trim(Range("A1"))))
End Function