Public Function comparaCuaternaElemento(cuaterna As Variant[], valor As Integer, n As Integer) As Boolean
Dim a As Integer
Dim ok As Boolean = True
If n = 4 Then
\'If main.activarcomprobacion = True Then
\'Print "comprobando"
\'Endif
For a = 0 To cuaterna.Count - 1
If cuaterna[a] <> valor Then
ok = False
Break
Endif
Next
Endif
If n = 3 Then
If cuaterna[0] = valor And cuaterna[1] = valor And cuaterna[2] = valor Then
ok = False
Return ok
Endif
Endif
If n = 2 Then
If (cuaterna[0] = valor And cuaterna[1] = valor) Then
ok = False
Return ok
Endif
Endif
Return ok
End