lo descubrí poniendo puntos de interrupción.
estas variables tienen estos valores cuando pasa el error
la variable Combinacion la declare como tipo string (Public Combinacion As String) en FMain
FMain.Combinacion=0123
FMain.EliminadosDEgrupo4=1
Public Sub clasificacionG4()
' TODO: CLASIFICACION G4
FMain.Combinacion = btnTotal_J1.Text & btnTotal_J2.Text & btnTotal_J3.Text & btnTotal_J4.Text
Print FMain.Combinacion
Print FMain.EliminadosDEgrupo4
Select Case FMain.EliminadosDEgrupo4
Case 1 ' SI SE ELIMINA 1 JUGADOR EN EL GRUPO DE 4 ENTONCES...
Select Case FMain.Combinacion
' !!!!!! combinaciones posibles con estos numeros: 3 2 1 0
Case 3021
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Eliminado"
btnClasificacionJ2.Foreground = &HFF0000
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Tercero"
Case 3210
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Tercero"
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 2310
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Tercero"
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 2301
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Tercero"
Case 0231
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Tercero"
Case 0312
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Tercero"
btnClasificacionJ4.Text = "Segundo"
Case 0321
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Tercero"
Case 0123 ' aqui deberia caer pero ni siquiera le este case
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Tercero"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Primero"
Case 2130
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Tercero"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 2103
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Tercero"
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Primero"
' !!!!!!combinaciones posibles con estos numeros: 2 2 2 0
Case 2220
btnClasificacionJ1.Text = "Empatado"
btnClasificacionJ2.Text = "Empatado"
btnClasificacionJ3.Text = "Empatado"
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 2202
btnClasificacionJ1.Text = "Empatado"
btnClasificacionJ2.Text = "Empatado"
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Empatado"
Case 2022
btnClasificacionJ1.Text = "Empatado"
btnClasificacionJ2.Text = "Eliminado"
btnClasificacionJ2.Foreground = &HFF0000
btnClasificacionJ3.Text = "Empatado"
btnClasificacionJ4.Text = "Empatado"
Case 0222
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Empatado"
btnClasificacionJ3.Text = "Empatado"
btnClasificacionJ4.Text = "Empatado"
' !!!!!!combinaciones posibles con estos numeros: 2 2 1 1
Case 2211 ' si
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Segundo"
Case 2121
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Segundo"
Case 1221 ' si
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Segundo"
Case 2112 ' si
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Primero"
Case 1212 ' si
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Primero"
Case 1122
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Primero"
' !!!!!!combinaciones posibles con estos numeros: 3 1 1 1
Case 3111
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Segundo"
Case 1311
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Primero"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Segundo"
Case 1131
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Segundo"
Case 1113
btnClasificacionJ1.Text = "Segundo"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Segundo"
btnClasificacionJ4.Text = "Primero"
Case Else
' aqui es donde cae !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
File.Save(FMain.DirPartidosAutomaticos & "/" & FMain.Combinacion & " (1 x Grupo4)" & ".codigo", FMain.Combinacion & " (1 x Grupo4) " & FMain.EliminadosDEgrupo4)
End Select
Case 2 ' SI SE ELIMINAN 2 JUGADORES EN EL GRUPO DE 4 ENTONCES...
Select Case FMain.Combinacion
Case 3210
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Segundo"
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 2022
btnClasificacionJ1.Text = "Primero"
btnClasificacionJ2.Text = "Eliminado"
btnClasificacionJ2.Foreground = &HFF0000
btnClasificacionJ3.Text = "Primero"
btnClasificacionJ4.Text = "Primero"
Case Else
File.Save(FMain.DirPartidosAutomaticos & "/" & FMain.Combinacion & " (2 x Grupo4) " & ".codigo", FMain.Combinacion)
End Select
Case 3 ' SI SE ELIMINAN 3 JUGADORES EN EL GRUPO DE 4 ENTONCES...
Select Case FMain.Combinacion
Case 3210
btnClasificacionJ1.Text = "Ganador"
btnClasificacionJ2.Text = "Eliminado"
btnClasificacionJ2.Foreground = &HFF0000
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Eliminado"
btnClasificacionJ4.Foreground = &HFF0000
Case 0213
btnClasificacionJ1.Text = "Eliminado"
btnClasificacionJ1.Foreground = &HFF0000
btnClasificacionJ2.Text = "Eliminado"
btnClasificacionJ2.Foreground = &HFF0000
btnClasificacionJ3.Text = "Eliminado"
btnClasificacionJ3.Foreground = &HFF0000
btnClasificacionJ4.Text = "Ganador"
Case Else
File.Save(FMain.DirPartidosAutomaticos & "/" & FMain.Combinacion & " (3 x Grupo4) " & ".codigo", FMain.Combinacion)
End Select
End Select
End