Public Sub QuickSortStringBounds(ByRef Strings() As String, _
    ByVal MinBound As Long, ByVal MaxBound As Long)
 
  Dim MinIndex As Long
  Dim MaxIndex As Long
  Dim Pivot As String
  Dim Index As Long
 
  If MaxBound - MinBound < 8 Then
 
    MinSortStringBounds Strings, MinBound, MaxBound
 
  Else
 
    MinIndex = MinBound
    MaxIndex = MaxBound
    Pivot = Strings((MinBound + MaxBound) \ 2)
    Do
 
      Do While Strings(MinIndex) < Pivot
        MinIndex = MinIndex + 1
      Loop
      Do While Strings(MaxIndex) > Pivot
        MaxIndex = MaxIndex - 1
      Loop
 
      If MinIndex < MaxIndex Then
        SwapStr Strings(MinIndex), Strings(MaxIndex)
        MinIndex = MinIndex + 1
        MaxIndex = MaxIndex - 1
      Else
        Exit Do
      End If
 
    Loop
 
    QuickSortStringBounds Strings, MinBound, MaxIndex
    QuickSortStringBounds Strings, MinIndex, MaxBound
 
  End If
 
End Sub

Call QuickSortStringBounds(??????????????????)