Пустой массив - некорректная проверка функцией - VBA

Формулировка задачи:

Вечер, туплю... Нужна помощь по корректировке кода пользовательской функции.

Function проверка(события As Range)
' проверка
arr = события.Value
For I = 1 To UBound(arr, 2)
    If IsEmpty(arr(1, I)) Xor IsEmpty(arr(2, I)) Then
        проверка = "нет пары"
        Exit Function
    End If
Next
проверка = "пара"
End Function

данная функция при отсутствии

пары

чисел a:b в событиях(ии) или пустом массиве должна давать результат "не пара", что не получается. Исходный код (файлы) прикладываю.

Решение задачи: «Пустой массив - некорректная проверка функцией»

textual
                            Листинг программы 
                        

                            Function проверка(события As Range)
' проверка
If WorksheetFunction.Count(события) = 0 Then GoTo np
arr = события.Value
For I = 1 To UBound(arr, 2)
    If IsEmpty(arr(1, I)) Xor IsEmpty(arr(2, I)) Then
np:     проверка = "нет пары"
        Exit Function
    End If
Next
проверка = "пара"
End Function
                        