Este procedimiento para ordenar matrices es, en la gran mayoría de casos, más rápido que el método de la burbuja.

Para conocer más sobre estos métodos puedes consultar las siguientes páginas: método Burbuja; método QuickSort

Sub Prueba()
Dim aDatos()

	aDatos = Array( "hola", "23", "12", "adiós", 20, 14, "¿qué tal?", "Hola" )
	QuickSort aDatos
	MsgBox Join( aDatos, chr(10) )

End Sub

El código del procedimiento es el siguiente:

Sub QuickSort( a(), optional p As long, optional u As long )  
Dim i As long, j As long, m, t

    p = iif(IsMissing( p ), lBound(a), p )
    u = iif(IsMissing( u ), uBound(a), u )
    
    i = p
    j = u
    m = a((p + u) / 2)
    
    While (i <= j)
		While (a(i) < m And i < u) : i = i + 1 : Wend
		While (m < a (j) And j> p) : j = j - 1 : Wend

		If (i <= j) Then
		  t = a(i)
		  a(i) = a(j)
		  a(j) = t
		  i = i + 1 :    j = j - 1
		End If
    Wend

    If (p < j) Then QuickSort(a, p, j)
    If (i < u) Then QuickSort(a, i, u)

End Sub