[VB6] Problema doppio ciclo For per ordine alfabetico

[Adrix]

ciao, ho bisogno di ordinare in ordine alfabetico una listbox per cui ho utilizzato due cicli col For

Dim temp As String
Dim ORDINA, ORDINA1 As Single

For ORDINA = 1 To (listaurl.ListCount - 1)
For ORDINA1 = ORDINA + 1 To listaurl.ListCount

If listaurl.List(ORDINA) > listaurl.List(ORDINA1) Then
temp = listaurl.List(ORDINA)
listaurl.List(ORDINA) = listaurl.List(ORDINA1)
listaurl.List(ORDINA1) = temp

Next ORDINA1
Next ORDINA

mi rileva il Next Ordina1 come "Next senza for"
soluzioni?