Here is the Second Part.
Select Case nNo(7)
Case Is < nNo(1)
nX3B(nNo(7), nNo(1), nNo(2)) = nX3B(nNo(7), nNo(1), nNo(2)) + 1
nX3B(nNo(7), nNo(1), nNo(3)) = nX3B(nNo(7), nNo(1), nNo(3)) + 1
nX3B(nNo(7), nNo(1), nNo(4)) = nX3B(nNo(7), nNo(1), nNo(4)) + 1
nX3B(nNo(7), nNo(1), nNo(5)) = nX3B(nNo(7), nNo(1), nNo(5)) + 1
nX3B(nNo(7), nNo(1), nNo(6)) = nX3B(nNo(7), nNo(1), nNo(6)) + 1
nX3B(nNo(7), nNo(2), nNo(3)) = nX3B(nNo(7), nNo(2), nNo(3)) + 1
nX3B(nNo(7), nNo(2), nNo(4)) = nX3B(nNo(7), nNo(2), nNo(4)) + 1
nX3B(nNo(7), nNo(2), nNo(5)) = nX3B(nNo(7), nNo(2), nNo(5)) + 1
nX3B(nNo(7), nNo(2), nNo(6)) = nX3B(nNo(7), nNo(2), nNo(6)) + 1
nX3B(nNo(7), nNo(3), nNo(4)) = nX3B(nNo(7), nNo(3), nNo(4)) + 1
nX3B(nNo(7), nNo(3), nNo(5)) = nX3B(nNo(7), nNo(3), nNo(5)) + 1
nX3B(nNo(7), nNo(3), nNo(6)) = nX3B(nNo(7), nNo(3), nNo(6)) + 1
nX3B(nNo(7), nNo(4), nNo(5)) = nX3B(nNo(7), nNo(4), nNo(5)) + 1
nX3B(nNo(7), nNo(4), nNo(6)) = nX3B(nNo(7), nNo(4), nNo(6)) + 1
nX3B(nNo(7), nNo(5), nNo(6)) = nX3B(nNo(7), nNo(5), nNo(6)) + 1
Case Is < nNo(2)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(7), nNo(2), nNo(3)) = nX3B(nNo(7), nNo(2), nNo(3)) + 1
nX3B(nNo(7), nNo(2), nNo(4)) = nX3B(nNo(7), nNo(2), nNo(4)) + 1
nX3B(nNo(7), nNo(2), nNo(5)) = nX3B(nNo(7), nNo(2), nNo(5)) + 1
nX3B(nNo(7), nNo(2), nNo(6)) = nX3B(nNo(7), nNo(2), nNo(6)) + 1
nX3B(nNo(7), nNo(3), nNo(4)) = nX3B(nNo(7), nNo(3), nNo(4)) + 1
nX3B(nNo(7), nNo(3), nNo(5)) = nX3B(nNo(7), nNo(3), nNo(5)) + 1
nX3B(nNo(7), nNo(3), nNo(6)) = nX3B(nNo(7), nNo(3), nNo(6)) + 1
nX3B(nNo(7), nNo(4), nNo(5)) = nX3B(nNo(7), nNo(4), nNo(5)) + 1
nX3B(nNo(7), nNo(4), nNo(6)) = nX3B(nNo(7), nNo(4), nNo(6)) + 1
nX3B(nNo(7), nNo(5), nNo(6)) = nX3B(nNo(7), nNo(5), nNo(6)) + 1
Case Is < nNo(3)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(2), nNo(3), nNo(7)) = nX3B(nNo(2), nNo(3), nNo(7)) + 1
nX3B(nNo(2), nNo(4), nNo(7)) = nX3B(nNo(2), nNo(4), nNo(7)) + 1
nX3B(nNo(2), nNo(5), nNo(7)) = nX3B(nNo(2), nNo(5), nNo(7)) + 1
nX3B(nNo(2), nNo(6), nNo(7)) = nX3B(nNo(2), nNo(6), nNo(7)) + 1
nX3B(nNo(7), nNo(3), nNo(4)) = nX3B(nNo(7), nNo(3), nNo(4)) + 1
nX3B(nNo(7), nNo(3), nNo(5)) = nX3B(nNo(7), nNo(3), nNo(5)) + 1
nX3B(nNo(7), nNo(3), nNo(6)) = nX3B(nNo(7), nNo(3), nNo(6)) + 1
nX3B(nNo(7), nNo(4), nNo(5)) = nX3B(nNo(7), nNo(4), nNo(5)) + 1
nX3B(nNo(7), nNo(4), nNo(6)) = nX3B(nNo(7), nNo(4), nNo(6)) + 1
nX3B(nNo(7), nNo(5), nNo(6)) = nX3B(nNo(7), nNo(5), nNo(6)) + 1
Case Is < nNo(4)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(2), nNo(3), nNo(7)) = nX3B(nNo(2), nNo(3), nNo(7)) + 1
nX3B(nNo(2), nNo(4), nNo(7)) = nX3B(nNo(2), nNo(4), nNo(7)) + 1
nX3B(nNo(2), nNo(5), nNo(7)) = nX3B(nNo(2), nNo(5), nNo(7)) + 1
nX3B(nNo(2), nNo(6), nNo(7)) = nX3B(nNo(2), nNo(6), nNo(7)) + 1
nX3B(nNo(3), nNo(4), nNo(7)) = nX3B(nNo(3), nNo(4), nNo(7)) + 1
nX3B(nNo(3), nNo(5), nNo(7)) = nX3B(nNo(3), nNo(5), nNo(7)) + 1
nX3B(nNo(3), nNo(6), nNo(7)) = nX3B(nNo(3), nNo(6), nNo(7)) + 1
nX3B(nNo(7), nNo(4), nNo(5)) = nX3B(nNo(7), nNo(4), nNo(5)) + 1
nX3B(nNo(7), nNo(4), nNo(6)) = nX3B(nNo(7), nNo(4), nNo(6)) + 1
nX3B(nNo(7), nNo(5), nNo(6)) = nX3B(nNo(7), nNo(5), nNo(6)) + 1
Case Is < nNo(5)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(2), nNo(3), nNo(7)) = nX3B(nNo(2), nNo(3), nNo(7)) + 1
nX3B(nNo(2), nNo(4), nNo(7)) = nX3B(nNo(2), nNo(4), nNo(7)) + 1
nX3B(nNo(2), nNo(5), nNo(7)) = nX3B(nNo(2), nNo(5), nNo(7)) + 1
nX3B(nNo(2), nNo(6), nNo(7)) = nX3B(nNo(2), nNo(6), nNo(7)) + 1
nX3B(nNo(3), nNo(4), nNo(7)) = nX3B(nNo(3), nNo(4), nNo(7)) + 1
nX3B(nNo(3), nNo(5), nNo(7)) = nX3B(nNo(3), nNo(5), nNo(7)) + 1
nX3B(nNo(3), nNo(6), nNo(7)) = nX3B(nNo(3), nNo(6), nNo(7)) + 1
nX3B(nNo(4), nNo(5), nNo(7)) = nX3B(nNo(4), nNo(5), nNo(7)) + 1
nX3B(nNo(4), nNo(6), nNo(7)) = nX3B(nNo(4), nNo(6), nNo(7)) + 1
nX3B(nNo(7), nNo(5), nNo(6)) = nX3B(nNo(7), nNo(5), nNo(6)) + 1
Case Is < nNo(6)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(2), nNo(3), nNo(7)) = nX3B(nNo(2), nNo(3), nNo(7)) + 1
nX3B(nNo(2), nNo(4), nNo(7)) = nX3B(nNo(2), nNo(4), nNo(7)) + 1
nX3B(nNo(2), nNo(5), nNo(7)) = nX3B(nNo(2), nNo(5), nNo(7)) + 1
nX3B(nNo(2), nNo(6), nNo(7)) = nX3B(nNo(2), nNo(6), nNo(7)) + 1
nX3B(nNo(3), nNo(4), nNo(7)) = nX3B(nNo(3), nNo(4), nNo(7)) + 1
nX3B(nNo(3), nNo(5), nNo(7)) = nX3B(nNo(3), nNo(5), nNo(7)) + 1
nX3B(nNo(3), nNo(6), nNo(7)) = nX3B(nNo(3), nNo(6), nNo(7)) + 1
nX3B(nNo(4), nNo(5), nNo(7)) = nX3B(nNo(4), nNo(5), nNo(7)) + 1
nX3B(nNo(4), nNo(6), nNo(7)) = nX3B(nNo(4), nNo(6), nNo(7)) + 1
nX3B(nNo(5), nNo(6), nNo(7)) = nX3B(nNo(5), nNo(6), nNo(7)) + 1
Case Is > nNo(6)
nX3B(nNo(1), nNo(2), nNo(7)) = nX3B(nNo(1), nNo(2), nNo(7)) + 1
nX3B(nNo(1), nNo(3), nNo(7)) = nX3B(nNo(1), nNo(3), nNo(7)) + 1
nX3B(nNo(1), nNo(4), nNo(7)) = nX3B(nNo(1), nNo(4), nNo(7)) + 1
nX3B(nNo(1), nNo(5), nNo(7)) = nX3B(nNo(1), nNo(5), nNo(7)) + 1
nX3B(nNo(1), nNo(6), nNo(7)) = nX3B(nNo(1), nNo(6), nNo(7)) + 1
nX3B(nNo(2), nNo(3), nNo(7)) = nX3B(nNo(2), nNo(3), nNo(7)) + 1
nX3B(nNo(2), nNo(4), nNo(7)) = nX3B(nNo(2), nNo(4), nNo(7)) + 1
nX3B(nNo(2), nNo(5), nNo(7)) = nX3B(nNo(2), nNo(5), nNo(7)) + 1
nX3B(nNo(2), nNo(6), nNo(7)) = nX3B(nNo(2), nNo(6), nNo(7)) + 1
nX3B(nNo(3), nNo(4), nNo(7)) = nX3B(nNo(3), nNo(4), nNo(7)) + 1
nX3B(nNo(3), nNo(5), nNo(7)) = nX3B(nNo(3), nNo(5), nNo(7)) + 1
nX3B(nNo(3), nNo(6), nNo(7)) = nX3B(nNo(3), nNo(6), nNo(7)) + 1
nX3B(nNo(4), nNo(5), nNo(7)) = nX3B(nNo(4), nNo(5), nNo(7)) + 1
nX3B(nNo(4), nNo(6), nNo(7)) = nX3B(nNo(4), nNo(6), nNo(7)) + 1
nX3B(nNo(5), nNo(6), nNo(7)) = nX3B(nNo(5), nNo(6), nNo(7)) + 1
End Select
Next i
Thanks in Advance.
All the Best.
PAB