Private Sub SortResults(ByRef Results As Collection)
Dim i As Integer, j As Integer
Dim temp As Variant
For i = 1 To Results.Count - 1
For j = i + 1 To Results.Count
If Results(i)(1) < Results(j)(1) Then
temp = Results(i)
Results.Remove i
Results.Add temp, , i
End If
Next j
Next i
End Sub