Valutare 2 o più ruote unite in modo ciclico una volta selezionate le ruote volute

[lotto_tom75]

Cerco di "tradurre" il titolo...

Se io scelgo dalla finestra di dialogo relativa ad esempio le ruote BA, CA, FI, GE, MI (5 ruote) come è possibile analizzarle a due a due unite in modo automatico in modo che mi analizzi tutte le possibili coppie generabili con esse in modo unito (che sarebbero 10 in questo esempio) ?

Analizzando l'es. sopra riportato + nel dettaglio sviluppandole dovrei poter analizzare in automatico le seguenti coppie:

BACA
BAFI
BAGE
BAMI
CAFI
CAGE
CAMI
FIGE
FIMI
GEMI

Ovvero come posso modificare questo code sotto riportato a tal fine?

If ScegliRange(Inizio,Fine) Then

Sorte = ScegliEsito

Call ScegliRuote(aRuote,Nothing)

[B]If(Fine > Inizio) And UBound(aRuote) > 0 And Sorte > 0 And idFiltro > - 1 Then[/B]  << 'CREDO CHE LA RIGA DA MODIFICARE SIA QUESTA MA NON HO LA MINIMA IDEA DI COSA FARE :)

Call Scrivi("Archivio : " & Iif(sFile <> "",sFile,"Archivio lotto"))

Select Case ScegliTipoSviluppo
Case 1
Call AnalisiLunghetteFromFileTxt(Inizio,Fine,aRuote,Sorte)
Case 2
Call AnalisiLunghetteFromSceglinumeri(Inizio,Fine,aRuote,Sorte)

End Select
End If

End if

Grazie 1000 fin d'ora agli esperti scripters che eventualmente interverranno!