Sub AAA(am4 as Byte, am3 as Byte, am2 as Byte, am1 as Byte, ap1 as Byte, ap2 as Byte, ap3 as Byte, ap4 as Byte) as Long
    AAA = m(am4)(am3)(am2)(am1)(ap1)(ap2)(ap3)(ap4)
End Sub
aaa1 = AAA(am4, am3,am2, am1, ap1, ap2, ap3, ap4)

Sub AAA(am4 as Byte, am3 as Byte, am2 as Byte, am1 as Byte, ap1 as Byte, ap2 as Byte, ap3 as Byte, ap4 as Byte) as Long
    AAA = m(am4 * 16384  + am3 *  4096  + am2 * 1024  + am1 *  256 + ap1 *  64  + ap2 *  16  + ap3 *  4  + ap4)
End Sub

aaa1 = AAA(am4, am3,am2, am1, ap1, ap2, ap3, ap4)

Sub AAA(Val as Long) as Long
    AAA = m(Val)
End Sub
aaa1 = AAA(am4 * 16384  + am3 *  4096  + am2 * 1024  + am1 *  256 + ap1 *  64  + ap2 *  16  + ap3 *  4  + ap4)