Sub ArraySort(aArrayToSort, sOrder)
  'This Sub will sort the array passed as aArrayToSort
  For i = UBound(aArrayToSort) - 1 To 0 Step -1
    For j = 0 To i
      If aArrayToSort(j) < aArrayToSort(j+1) And sOrder = "desc" Then         sTempStr = aArrayToSort(j+1)         aArrayToSort(j+1) = aArrayToSort(j)         aArrayToSort(j) = sTempStr       ElseIf aArrayToSort(j) > aArrayToSort(j+1) And sOrder = "asc" Then
        sTempStr = aArrayToSort(j+1)
        aArrayToSort(j+1) = aArrayToSort(j)
        aArrayToSort(j) = sTempStr
      End If
    Next
  Next
End Sub

Sub DoubleArraySort(aArray1ToSort, aArray2ToSort, sOrder)
  'This Sub will sort the array passed as aArray1ToSort,
  'the values in aArray2ToSort, will not be sorted, but
  'will be reordered in the same relational order as
  'aArray1ToSort
  For i = UBound(aArray1ToSort) - 1 To 0 Step -1
    For j = 0 To i
      If aArray1ToSort(j) > aArray1ToSort(j+1) And sOrder = "desc" Then
        sTempStr = aArray1ToSort(j+1)
        aArray1ToSort(j+1) = aArray1ToSort(j)
        aArray1ToSort(j) = sTempStr

        sTempStr = aArray2ToSort(j+1)
        aArray2ToSort(j+1) = aArray2ToSort(j)
        aArray2ToSort(j) = sTempStr
      ElseIf aArray1ToSort(j) < aArray1ToSort(j+1) And sOrder = "asc" Then
        sTempStr = aArray1ToSort(j+1)
        aArray1ToSort(j+1) = aArray1ToSort(j)
        aArray1ToSort(j) = sTempStr

        sTempStr = aArray2ToSort(j+1)
        aArray2ToSort(j+1) = aArray2ToSort(j)
        aArray2ToSort(j) = sTempStr
      End If
    Next
  Next
End Sub