Sort an Array

Function GetArrSort(ByVal arrTemp As Variant)
   'Tested 20090208
   On Error GoTo errHandler1:
   Dim blnSorted As Boolean
   Dim varTemp As Variant

   Do While Not blnSorted
      blnSorted = True
      For i = 0 To UBound(arrTemp, 2) - 1
         If arrTemp(1, i) < arrTemp(1, i + 1) Then
            temp = arrTemp(0, i + 1)
            arrTemp(0, i + 1) = arrTemp(0, i)
            arrTemp(0, i) = temp
            temp = arrTemp(1, i + 1)
            arrTemp(1, i + 1) = arrTemp(1, i)
            arrTemp(1, i) = temp

            blnSorted = False
         End If
      Next i
   Loop 'Loop until no more changes are required.
   GetArrSort = arrTemp
   Exit Function
errHandler1:
   'Notify user of failure.
   MsgBox "GetArrSort has failed", _
   vbCritical, "Function Failure"
End Function