Tan sutil como siempre...

Me temo que lógico sería:
1.-Signos y símbolos
2.-Números
3.-Letras

Además el vb me apoya, si hago esto:

Private Sub Form_Load()
    With List1
        .AddItem "4paleto"
        .AddItem "paleto"
        .AddItem " paleto"
    End With
End Sub

Y pongo la propiedad Sorted en el List1 (para ordenar el contenido del mismo) este es el resultado:


Quizás quieras revisar tu función.

DoEvents!

 
Y QuickSort tambien ¿no?

Private Sub Form_Load()
Dim a() As String
Dim vItem
    a = Split("karcrack es un pesado 4ejemplo %ejemplo", " ")
    QuickSort a
 
    For Each vItem In a
        Debug.Print vItem
    Next
End Sub

Resultado:

No insistas, todos los ejemplos (menos el tuyo ) lo ordenan así...

DoEvents!

Pero 7913, eso seria para otra cosa, esto es sobre palabras nomas xD y si usas el mio creo q anda ya para eso pero la idea es con palabras solamente.

Quien gano entonces? Frog haciendo trampa o Karcrack con errores? xD jajaj

Pues entonces me da la sensación de que planteas mal el reto... Si lo que quieres es que las ordene siguiendo el orden de cada carácter en la Tabla Ascii esta mal planteado.
Tu pides alfabeticamente... Y el alfabeto no contempla el espacio... luego lógicamente debería ser situado después de todas las letras del alfabeto...

Aún así StrComp() compara según el Ascii Code... así que teóricamente mi función ha de seguir tus directrices...

Bueno pero no te enojes Frog xD, hace los test q me interesa saber si mi codigo esta demasiadoo lento o q