excel vba 编程简单问题，求教

Sub aTest()
Dim vArray As Variant
Dim i As Integer
Dim j As Integer
Dim vTmp As Variant
vArray = [b1:b3]
For i = LBound(vArray) To UBound(vArray)
For j = i + 1 To UBound(vArray)
If vArray(i, 1) > vArray(j, 1) Then '升序
'If vArray(i, 1) < vArray(j, 1) Then '降序
vTmp = vArray(i, 1)
vArray(i, 1) = vArray(j, 1)
vArray(j, 1) = vTmp
End If
Next
Next
[b1:b3] = vArray
End Sub

直接调用排序函数不行吗