用VBA写一段冒泡程序排序代码

Sub BubbleSort(ByRef arr As Variant)
Dim lngUpper As Long
Dim lngX As Long
Dim lngY As Long
Dim lngTemp As Long
lngUpper = UBound(arr)
For lngX = 0 To lngUpper
For lngY = lngX + 1 To lngUpper
If arr(lngX) > arr(lngY) Then
lngTemp = arr(lngX)
arr(lngX) = arr(lngY)
arr(lngY) = lngTemp
End If
Next lngY
Next lngX
End Sub