Pessoal!!!!

Tenho os seguintes campos (que no total são 15) mas para exemplificar tem esta situação:

Total1 Nome1 aPontoT1 Resul1

Total2 Nome2 aPontoT2 Resul2

Total3 Nome3 aPontoT3 Resul3

Total4 Nome4 aPontoT4 Resul4

Total5 Nome5 aPontoT5 Resul5

Preciso fazer a seguinte comparação (neste caso os campos Total1,2,3,4,5 estão com valores menor que 5):

Exemplificando seria isto ( Nome1 para Nome5, Nome5 para Nome4, Nome4 para Nome3, Nome3 para Nome2, Nome2 Para Nome1)

If aPontoT5 > aPontoT4 then

Resul4 = 1

Else

Resul4= 0

End if

If aPontoT4 > aPontoT3 then

Resul3 = 1

Else

Resul3= 0

End if

If aPontoT3 > aPontoT2 then

Resul2 = 1

Else

Resul2= 0

End if

If aPontoT2 > aPontoT1 then

Resul1 = 1

Else

Resul1= 0

End if

If aPontoT1 > aPontoT5 then

Resul5 = 1

Else

Resul5= 0

End if

Mas se um ou mais estiverem com o valor 5 terei que pegar os valores do Nome abaixo só com estes 5 já dá N possibilidades o problema é que tenho 15 para verificar.

Se o total3 esteja com o valor 5 então a situação deveria ser esta :

Exemplificando seria isto( Nome1 para Nome5, Nome5 para Nome4, Nome4 para Nome2, Nome2 para Nome1)

Sempre comparando os valores com o do oponente logo abaixo até sobrar somente um.

Alguém conhece uma maneira mais pratica de elaborar este codigo ????