Se lee de abajo hacia arriba donde:
 * Cada numero es un usuario.
 * El "-" seria un "versus".
 * El numero de la parte superior seria el usuario ganador.
          5
         1-5
   1-4         5-8
1-2   3-4   5-6   7-8

 
Private Type tUserInfo
    sNombre     As String
    oTeam       As cTeam        '   //  Referencia a la Clase(GLOBAL) que contiene los detalles del equipo al que pertenece este usuario.
    oStatistics As cStatistics  '   //  Referencia a la Clase(UNICA) que contiene las estadisticas generales de este usuario.
End Type
 
 

Option Explicit
 
Dim Player(27) As String ' El tamaño variara en estos casos: 7 - 11 - 15 - 19 - 23 - 27 - 31
Dim Score(27) As Integer ' que son los posibles equipos que habra siempre
Dim Ranking(27) As Integer ' esto tenerlo en cuenta al hacer operaciones en la funcion a realizar
 
 
Private Sub Form_Load()
 
Dim i As Integer
Dim caracter As Integer
Dim Octavos() As String ' aca guardaremos los clasificados
 
caracter = 65
 
' A continuacion los bucles son para llenar los arrays con contenido como los que contendra
' en mi aplicacion original
 
For i = 0 To UBound(Player) ' cargamos los equipos
    Player(i) = Chr$(caracter)
    caracter = caracter + 1
Next
 
For i = 0 To UBound(Score) ' ponemos un score a cada uno
    Randomize Time
    Score(i) = CInt(Rnd() * 20)
Next
 
For i = 0 To UBound(Ranking) ' ponemos puntos a cada uno
    Randomize Time
    Ranking(i) = CInt(Rnd() * 9)
Next
 
'--------------------------------------------------------------
Debug.Print String(20, "#") ' Mostramos la lista de equipos con sus puntajes y goles
    For i = 0 To UBound(Player)
        Debug.Print Player(i) & " - " & Score(i) & " - " & Ranking(i)
    Next
Debug.Print String(20, "/")
'--------------------------------------------------------------
 
Octavos = Clasificados(Player(), Score(), Ranking()) ' guardamos los clasificados
 
Debug.Print "Clasificados para octavos de final: "
 
'For i = 0 To UBound(Octavos) ' mostrar clasificados
'Debug.Print Octavos(i)
'Next
 
Debug.Print String(20, "#")
 
End Sub
 
Private Function Clasificados(Player() As String, Score() As Integer, Ranking() As Integer) As String()
' Devolvera un String() con los Primeros y Segundos de cada Grupo mas en este caso
' al ser 28 equipos.. el Primer Mejor Tercero y el Segundo Mejor tercero de TODOS
Dim i As Integer
Dim Todos() As String
 
  ' Dim p As Long    'Aca les dejo comentado el codigo para ordenar un array
   ' Dim c As Long   ' de menor a mayor, con el metodo Burbujeo por si sirve
   ' Dim h As Long
 
   ' For p = 1 To (UBound(Ranking) - 1)
   '     For c = 1 To (UBound(Ranking) - 1)
    '        If Ranking(c) > Ranking(c + 1) Then
    '            h = Ranking(c)
    '            Ranking(c) = Ranking(c + 1)
     '           Ranking(c + 1) = h
     '       End If
     '   Next c
   ' Next p
 
Clasificados = Todos()
 
End Function