'========================================

Sub Gen_SortArray(aInput)

	'This function sorts an array using the .NET System.Collections.ArrayList

	'Usage:
		'Call Gen_SortArray(aRows)

	'Where aRows is a simple one-dimensional array containing data

	Dim oList, sItem, iIndex

	Set oList = CreateObject("System.Collections.ArrayList")

	'Load the object
	For iIndex = lBound(aInput) to uBound(aInput)
		oList.Add aInput(iIndex)
	Next

	'Sort it
	oList.Sort()

	'Get the data back
	iIndex = lBound(aInput)
	For Each sItem In oList
		aInput(iIndex) = sItem
		iIndex = iIndex + 1
	Next

	Set oList = Nothing

End Sub

'========================================