Ошибка Run-time error '381' при использовании массива - VBA

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

Здравствуйте, уважаемые гуру. Есть Форма с ComboBox'ом. При инициализации считывается с диапазона ячеек значения, проводятся некоторые операции (сортировка и удаление дубликатов) и выводится полученный список в ComboBox. Если значений в ячейках два и более то все отрабатывает штатно. При только одной заполненной ячейки выдает ошибку Run-time error

Спойлер

Пытался приделать костыль чтобы обойти данный казус, но знаний в VBA не хватает. Буду рад за любую оказанную помощь. спасибо. P.S. Пример приложил. Функция сортировки и удаления дубликатов была собрана из разных источников.

Решение задачи: «Ошибка Run-time error '381' при использовании массива»

textual
                            Листинг программы 
                        
                            If Not IsArray(Arr) Then uniqsort = Array(Arr): Exit Function