this works for me.

[VBA]
Sub arr_sort()
'http://excelwiki.com/vba-arrays/bubble-sort-in-vba

Dim aNum(), aStr(), Arr(), t
Dim i As Long, j As Long, UB As Long, y As Long

aNum = Array(22, 17, 24, 16)
aStr = Array("A", "D", "C", "B")

If (UBound(aNum) <> UBound(aStr)) Then
MsgBox ("Arrays DO NOT contain same number of elements.")
Exit Sub
End If

UB = UBound(aNum) - LBound(aNum) + 1

For i = LBound(aNum) To UBound(aNum)
j = j + 1
ReDim Preserve Arr(1 To UB, 1 To 2)
Arr(j, 1) = aNum(i) 'aNum : col 1
Arr(j, 2) = aStr(i)
Next i

Range("A1:B4") = Arr 'to see unsorted array values

SortColumn = 1 'aNum : col 1
For i = LBound(Arr, 1) To UBound(Arr, 1) - 1
For j = LBound(Arr, 1) To UBound(Arr, 1) - 1
Condition = Arr(j, SortColumn) > Arr(j + 1, SortColumn)
If Condition Then
For y = LBound(Arr, 2) To UBound(Arr, 2)
t = Arr(j, y)
Arr(j, y) = Arr(j + 1, y)
Arr(j + 1, y) = t
Next y
End If
Next j
Next i

Range("A11:B14") = Arr 'to see sorted array values

End Sub
[/VBA]