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

Manca End If