Recursion (Quick Sort)

I've been having a play with sorting integers in A1:I1 (because that was the example in Wikipedia). I've got some code that kind of works, but the recursion is entirely manual.

(I know it's only a mickey mouse example, and no practical use!)

Sub quicksort()
Dim iPivotIndex As Integer, iPivotValue As Integer, iTempValue As Integer, iStoreIndex As Integer, i As Integer
Dim iStartNumber As Integer, iEndNumber As Integer

'how do I give it the original iStartNumber and iEndNumber
iStartNumber = InputBox("Start")
iEndNumber = InputBox("end")........................................