Public Sub SortArray(pArray, Optional Col As Integer = -1)
Dim i As Integer, j As Integer
Dim temp
Dim m As Integer
If Col < 0 Then
For i = LBound(pArray) To UBound(pArray) - 1
For j = UBound(pArray) To i + 1 Step -1
If pArray(j) < pArray(j - 1) Then
temp = pArray(j)
pArray(j) = pArray(j - 1)
pArray(j - 1) = temp
End If
Next j
Next i
Else
For i = LBound(pArray, 1) To UBound(pArray, 1) - 1
For j = UBound(pArray, 1) To i + 1 Step -1
If pArray(j, Col) < pArray(j - 1, Col) Then
temp = pArray(j, Col)
pArray(j, Col) = pArray(j - 1, Col)
pArray(j - 1, Col) = temp
End If
Next j
Next i
End If
End Sub
