Не всегда срабатывает пользовательская функция

Public Function ВПР2(Диапазон As Variant, ПозСтолб As Variant, ИскЗнач As Variant, _
НомПоз As Variant, РезСтолб As Variant, Optional ByVal ФлагПоз As Variant = 0)
    Application.Volatile True
    Dim i As Long, iCount As Long
       ''полное совпадение
       If ФлагПоз = 0 Then
    Select Case TypeName(Диапазон)
    Case "Range"
        For i = 1 To Диапазон.Rows.Count
            If Диапазон.Cells(i, ПозСтолб) = ИскЗнач Then
                iCount = iCount + 1
            End If
            If iCount = НомПоз Then
                ВПР2 = Диапазон.Cells(i, РезСтолб)
                Exit For
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Диапазон)
            If Диапазон(i, ПозСтолб) = ИскЗнач Then iCount = iCount + 1
            If iCount = НомПоз Then
                ВПР2 = Диапазон(i, РезСтолб)
                Exit For
            End If
        Next i
    End Select
       End If
''частично приблеженное совпадение
If ФлагПоз <> 0 Then
Select Case TypeName(Диапазон)
    Case "Range"
        For i = 1 To Диапазон.Rows.Count
            If Equality(Диапазон.Cells(i, ПозСтолб), ИскЗнач) > eqmax Then
            temp = Диапазон.Cells(i, РезСтолб)
            iCount = iCount + 1
            eqmax = Equality(Диапазон.Cells(i, ПозСтолб), ИскЗнач)
            If eqmax < ФлагПоз Then temp = Empty
            End If
            If iCount = НомПоз Then
               iCount = Empty
               ВПР2 = temp
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Диапазон)
            If Equality(Диапазон(i, ПозСтолб), ИскЗнач) > eqmax Then
            temp = Диапазон(i, РезСтолб)
            iCount = iCount + 1
            eqmax = Equality(Диапазон(i, ПозСтолб), ИскЗнач)
            If eqmax < ФлагПоз Then temp = Empty
            End If
            If iCount = НомПоз Then
               iCount = Empty
               ВПР2 = temp
            End If
        Next i
    End Select
       End If
   
End Function
Private Function Equality(t1 As Variant, t2 As Variant) As Integer
Equality = 0
    For n = 1 To Len(t1)
        For k = n To Len(t1)
            s = Mid(t1, n, k)
            s1 = "*" & s & "*"
            If t2 Like s1 Then
                If (k - n + 1) > Equality Then Equality = k - n + 1
            End If
        Next k
    Next n
End Function

Option Compare Text
Sub Sort_Words(S)
    If Not IsArray(S) Then Exit Sub
    If UBound(S) < 1 Then Exit Sub
    Dim i%, j%, Ma%, L%(), tS
    ReDim L(UBound(S))
    For i = LBound(S) To UBound(S)
        L(i) = Len(S(i))
    Next i
    For i = LBound(S) To UBound(S)
        Ma = L(i)
        For j = i + 1 To UBound(S)
            If Ma < L(j) Or (Ma = L(j) And S(i) > S(j)) Then
                Ma = L(j)
                L(j) = L(i)
                L(i) = Ma
                tS = S(j)
                S(j) = S(i)
                S(i) = tS
            End If
        Next j
    Next i
End Sub

Public Function ВПРM(Диапазон As Variant, РезСтолб As Variant, Optional ByVal ФлагПоз As Variant = 0, _
Optional ByVal ПозСтолб1 As Variant, Optional ByVal ИскЗнач1 As Variant, _
Optional ByVal ПозСтолб2 As Variant, Optional ByVal ИскЗнач2 As Variant, _
Optional ByVal ПозСтолб3 As Variant, Optional ByVal ИскЗнач3 As Variant)

 If ФлагПоз = 0 Then
        For i = 1 To UBound(Диапазон2)
            If Диапазон2(i, ПозСтолб1) = ИскЗнач1 Then
            If Диапазон2(i, ПозСтолб2) = ИскЗнач2 Then
            If Диапазон2(i, ПозСтолб3) = ИскЗнач3 Then
                    ВПРM = Диапазон2(i, РезСтолб)
                    Exit For
            End If: End If: End If
        Next i

 If ФлагПоз = 0 Then
        For i = 1 To UBound(Диапазон2)
            If IsEmpty(ПозСтолб1) Then
            Диапазон2(i, ПозСтолб1) = Empty: ИскЗнач1 = Empty
            End If
            If IsEmpty(ПозСтолб2) Then
            Диапазон2(i, ПозСтолб2) = Empty: ИскЗнач2 = Empty
            End If
            If IsEmpty(ПозСтолб3) Then
            Диапазон2(i, ПозСтолб3) = Empty: ИскЗнач3 = Empty
            End If
                If Диапазон2(i, ПозСтолб1) & " " & Диапазон2(i, ПозСтолб2) _
                & " " & Диапазон2(i, ПозСтолб3) = ИскЗнач1 & " " & ИскЗнач2 & " " & ИскЗнач3 Then
                    ВПРM = Диапазон2(i, РезСтолб)
                    Exit For
                End If
        Next i

 If IsMissing(Диапазон2(i, ПозСтолб1)) = IsMissing(ИскЗнач1) Then

 If IsMissing(Диапазон2(i, ПозСтолб1)) And IsMissing(ИскЗнач1) Then

If IsMissing(ПозСтолб1) And IsMissing(ИскЗнач1) Then

            If Not IsMissing(ПозСтолб1) And Not IsMissing(ИскЗнач1) Then
            If Диапазон2(i, ПозСтолб1) = ИскЗнач1 Then
                    ВПРM = Диапазон2(i, РезСтолб)
                    Exit For
            End If: End If:

Function QuickEquality(ByVal t1 As Variant, ByVal t2 As Variant) As Integer
    Dim i%, j%, k%, S, Z, L%, N1%, N2%
    Dim Max1%(), Max2%(), Sum%
    S = Split(t1, " "): Z = Split(t2, " ")
    N1 = UBound(S): N2 = UBound(Z)
    ReDim Max1(0 To N1), Max2(0 To N2)
    For i = 0 To N1
        L = Len(S(i))
        For j = 0 To N2
            For k = L To IIf(Max1(i) > 2, Max1(i), 2) Step -1
                If Left(S(i), k) = Left(Z(j), k) Then
                    If Max1(i) <= k And Max2(j) <= k Then Max1(i) = k: Max2(j) = k
                    Exit For
                End If
            Next
        Next j
        Sum = Sum + Max1(i)
    Next i
    QuickEquality = Sum
End Function
Sub test_aa()
    Debug.Print QuickEquality("Акт в Актюбинске", "Актюбинский Акт2 вот")
    Debug.Print QuickEquality("Акмолинский ОДРТ", "ИТОГО по Акмолинской ОДРТ")
    Debug.Print QuickEquality("Акмолинский ОДРТ", "Алматинская ОДРТ")
End Sub