Found this code on netnerds.com and wanted to bookmark it… she got it from VisualBasicScript.com’s Forums

Function fSortArray(aSortThisArray)
Dim oArrayList, iElement, oArrayDic
Set oArrayDic = CreateObject("Scripting.Dictionary")
Set oArrayList = CreateObject( "System.Collections.ArrayList" )
For iElement = 0 To UBound(aSortThisArray)
  oArrayList.Add aSortThisArray(iElement)
Next
oArrayList.Sort
set fSortArray = oArrayList
End Function