Удалить повторяющиеся элементы из массива (VBA в Excel)

Sub Test()
  Const DgtList$ = "48,50,57,58,53,51,60,62,56,45,44,46,46,47,66,61,59,49,63,64,52,65,69,69,69,69"
  Debug.Print ShortDgtList(DgtList)
End Sub

Function ShortDgtList$(s$)
  Dim dct, ar, i&, p&
  Set dct = CreateObject("Scripting.Dictionary"): ar = Split(s, ",")
  For i = LBound(ar) To UBound(ar)
    If Not dct.exists(Val(ar(i))) Then dct.Add Val(ar(i)), i
  Next
  ar = dct.keys:  i = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count
  With Cells(1, i).Resize(UBound(ar) + 1, 1)
    .Value = WorksheetFunction.Transpose(ar): .Sort .Cells(1): ar = .Value: .ClearContents
  End With
  s = ar(1, 1): p = 1
  For i = 2 To UBound(ar)
    If ar(i, 1) <> ar(p, 1) + i - p Then
      If i - p > 1 Then s = s & "-" & ar(i - 1, 1)
      s = s & "," & ar(i, 1): p = i
    Else
      If i = UBound(ar) Then s = s & "-" & ar(i, 1)
    End If
  Next
  ShortDgtList = s
End Function