Using .NET Framework from VBSCRIPT / TechNet Magazine, January 2007

with weak stomachs might want to skip on to the next paragraph):

For i = (UBound(arrNames) - 1) to 0 Step -1
For j= 0 to i
If UCase(arrNames(j)) >
UCase(arrNames(j+1)) Then
strHolder = arrNames(j+1)
arrNames(j+1) = arrNames(j)
arrNames(j) = strHolder
End If
Next
Next

Set DataList = CreateObject _
("System.Collections.ArrayList")
DataList.Add "B"
DataList.Add "C"
DataList.Add "E"
DataList.Add "D"
DataList.Add "A"
DataList.Sort()
For Each strItem in DataList
Wscript.Echo strItem
Next

DataList.Sort()

For Each strItem in DataList
Wscript.Echo strItem
Next

read more at:

Hey, Scripting Guy!: Be Careful What You Say -- TechNet Magazine, January 2007