Функция сохраняет даты как строки

[uint]

Пытаюсь написать функцию, которая принимает на вход диапазон значений, а возвращает массив, содержащий только уникальные значения исходного набора данных (убирает повторяющиеся и пустые значения). Так я представлял себе задачу в общем. Но в действительность на вход подаётся только диапазон дат (просто целые числа с форматированием "короткий формат даты"). Я думал, что функция оставит целый тип данных без изменений, вернет массив чисел, которые будут отформатированы в ячейках с формулой, однако функция упорно возвращает строковое представление дат в формате дат. Это представляет собой проблему, так как возвращенные значения должны сравниваться другой функцией с исходными датами и возвращать свой результат, но так как исходные даты представляют собой отформатированное число, а конечные - строки, то сравнение невозможно. Можно было бы преобразовать строки специальной функцией в число, но мне хочется, чтобы моя функция была универсальной и возвращала бы тот тип данных, который приняла в качестве аргумента. Вот код функции, которая работает неудовлетворительно.

'Функция принимает диапазон, содержащий какие либо данные, например, даты
'данные могут повторяться, а возвращает массив, содержащий только уникальные
'значения
Function СЛЕДМИНИМ(Массив As Range) As Variant
  Dim nRow As Integer
  Dim k As Integer
  Dim Items() As Variant
  '
  k = 0
  ReDim Items(k)
  nRow = Массив.Rows.Count 'строк
  'помещаем в массив только уникальные элемениы
  For r = 1 To nRow
    Dim flag As Boolean
    Dim val As Variant
    If TypeName(Массив.Cells(r, 1).Value) = "Date" Then
      val = Массив.Cells(r, 1).Value
    'MsgBox val
    flag = True
    '
    For i = LBound(Items) To UBound(Items)
      If Items(i) = val Then
        flag = False
      End If
    Next
    
    If flag = True Then
      ReDim Preserve Items(k)
      Items(k) = val
      k = k + 1
    End If
    End If
  Next r
  СЛЕДМИНИМ = Application.Transpose(Items)
  'Erase Items
  Exit Function
End Function

На картинке видны даты в строковом представлении. В клетках таблицы, 1:1 и т.д. находятся функции, обрабатывающие значения столбца "Дата". Если результат в столбце "Дата" сохранить как значения, то они все равно останутся текстом, но если в строке формул нажать backspace перед первым символом, то результат преобразуется в число.
787878788.png
Самодельная функция, обрабатывающая значения в столбце "Дата" воспринимает именно строку, а должна - число.
454545454.png
Посоветуйте, как решить данную проблему.

[IgorGO]

преобразуйте текст в дату