[VBScript] Sorting ... another way

I have tried and tried to get Shell sorts working but every algorithm I've tried ends up crashing out with negative indexes into the array.

So below is another way around the whole issue: create a RecordSet, populate it with fields, add data to it and use the RecordSet's own internal sorting routines. class Container2 private oRecordSet Private Sub Class_Initialize() Const adVarWChar = 202 Dim oFields Set oRecordSet = CreateObject( "ADODB.RecordSet" ) Set oFields = oRecordSet.Fields oFields.Append "Data", adVarWChar, 255 oRecordSet.Open End Sub Public Sub Add( sText ) oRecordSet.AddNew "Data", sText End Sub Public Function Extract() Const adClipString = 2 Dim sResult sResult = oRecordSet.GetString( adClipString, oRecordSet.RecordCount, , , "") Extract = sResult End Function Public Sub Sort( sDirection ) Dim sSort sDirection = UCase( Left( sDirection, 1 ) ) Select Case sDirection Case "A" sSort = "Data ASC" Case "D" sSort = "Data DESC" Case Else sSort = "" ' no sort, natural order End Select WScript.Echo "Sorting " & oRecordSet.RecordCount & " items" oRecordSet.Sort = sSort End Sub Private Sub Class_Terminate() oRecordSet.Close Set oRecordSet = Nothing End Sub Public Sub SaveData( sFilename ) Const adPersistADTG = 0 oRecordSet.Save sFilename, adPersistADTG End Sub Public Sub SaveXML( sFilename ) Const adPersistXML = 1 oRecordSet.Save sFilename, adPersistXML End Sub end class And a trivial example of its use function rangedRandom( nLoBound, nHighBound ) rangedRandom = Int((nHighBound - nLoBound + 1) * Rnd + nLoBound) end function dim c set c = new container2 randomize dim x(100) for i = 100 to 0 step -1 c.add rangedRandom(1,1000) & vbtab & "my dog has " & i & " fleas" next c.sort "Ascending" wscript.echo c.extract filedelete("dim.dat") c.savedata "dim.dat" filedelete("dim.xml") c.savexml "dim.xml"