Excel vba的快速排序算法

我一直在尝试编写这种排序算法。这就是我到目前为止所做的：

Sub QuickSort()
MyArray = Array(5, 86, 69, 1, 74, 34, 3)
Size = UBound(MyArray)


Pivot = 34
FirstS = 1
SecondS = 152

Do Until FirstS = SecondS

        For f = 1 To Size
            FirstS = MyArray(f)
            If FirstS >= Pivot Then Exit For
        Next f

        For s = Size To 1 Step -1
            SecondS = MyArray(s)
            If SecondS <= Pivot Then Exit For
        Next s

        MyArray(s) = FirstS
        MyArray(f) = SecondS
Loop

MsgBox "done"

---

我知道Pivot值是估算出来的，但我不记得是如何估算出来的，所以我选择了34开始测试代码。

问题是什么？这应该会有帮助：下面是一些关于不同排序方法的阅读资料。我的疑问/问题是，在整个数组正确排序之前，我不知道如何循环代码