Function SortYears(src As String) As String
  Dim arr As Variant, X As Long, coll As Object
  arr = Split(src, " ")
  Set coll = CreateObject("System.Collections.ArrayList")
  For X = LBound(arr) To UBound(arr)
      coll.Add CStr(arr(X))
  Next X
  coll.Sort
  For X = 0 To coll.Count - 1
      SortYears = Trim(SortYears & " " & coll(X))
  Next X
End Function