just change this
Dim deck#(18,7)
deck#(1,1)=150:deck#(1,2)=5.2:deck#(1,3)=189:deck#(1,4)=3.786:deck#(1,5)=1143:deck#(1,6)=1796:deck(1,7)=0
deck#(2,1)=146:deck#(2,2)=6.6:deck#(2,3)=226:deck#(2,4)=4.672:deck#(2,5)=1555:deck#(2,6)=2968:deck(2,7)=0
deck#(3,1)=195:deck#(3,2)=3.8:deck#(3,3)=390:deck#(3,4)=4.235:deck#(3,5)=1060:deck#(3,6)=3996:deck(3,7)=0
deck#(4,1)=137:deck#(4,2)=6.9:deck#(4,3)=160:deck#(4,4)=3.943:deck#(4,5)=1115:deck#(4,6)=1796:deck(4,7)=0
deck#(5,1)=150:deck#(5,2)=6.3:deck#(5,3)=240:deck#(5,4)=4.299:deck#(5,5)=1415:deck#(5,6)=3179:deck(5,7)=0
deck#(6,1)=202:deck#(6,2)=4.3:deck#(6,3)=515:deck#(6,4)=4.550:deck#(6,5)=1730:deck#(6,6)=5750:deck(6,7)=0
deck#(7,1)=192:deck#(7,2)=4.2:deck#(7,3)=492:deck#(7,4)=4.330:deck#(7,5)=1520:deck#(7,6)=4961:deck(7,7)=0
deck#(8,1)=118:deck#(8,2)=11.2:deck#(8,3)=115:deck#(8,4)=4.516:deck#(8,5)=1410:deck#(8,6)=1910:deck(8,7)=0
deck#(9,1)=146:deck#(9,2)=6.4:deck#(9,3)=228:deck#(9,4)=4.430:deck#(9,5)=1300:deck#(9,6)=1308:deck(9,7)=0
deck#(10,1)=150:deck#(10,2)=6.2:deck#(10,3)=237:deck#(10,4)=4.135:deck#(10,5)=1260:deck#(10,6)=1997:deck(10,7)=0
deck#(11,1)=140:deck#(11,2)=7.2:deck#(11,3)=189:deck#(11,4)=4.355:deck#(11,5)=1215:deck#(11,6)=1796:deck(11,7)=0
deck#(12,1)=155:deck#(12,2)=5.9:deck#(12,3)=287:deck#(12,4)=4.310:deck#(12,5)=1545:deck#(12,6)=3498:deck(12,7)=0
deck#(13,1)=155:deck#(13,2)=5.6:deck#(13,3)=268:deck#(13,4)=4.082:deck#(13,5)=1390:deck#(13,6)=3498:deck(13,7)=0
deck#(14,1)=155:deck#(14,2)=5.9:deck#(14,3)=231:deck#(14,4)=4.091:deck#(14,5)=1365:deck#(14,6)=2979:deck(14,7)=0
deck#(15,1)=155:deck#(15,2)=6.1:deck#(15,3)=414:deck#(15,4)=5.055:deck#(15,5)=2434:deck#(15,6)=5998:deck(15,7)=0
deck#(16,1)=155:deck#(16,2)=6.6:deck#(16,3)=247:deck#(16,4)=4.041:deck#(16,5)=1515:deck#(16,6)=3189:deck(16,7)=0
deck#(17,1)=95:deck#(17,2)=15.5:deck#(17,3)=67:deck#(17,4)=4.020:deck#(17,5)=1226:deck#(17,6)=1399:deck(17,7)=0
deck#(18,1)=150:deck#(18,2)=6.5:deck#(18,3)=215:deck#(18,4)=4.069:deck#(18,5)=1388:deck#(18,6)=3199:deck(18,7)=0
to this
Dim deck#(18,7)
deck#(1,1)=150:deck#(1,2)=5.2:deck#(1,3)=189:deck#(1,4)=3.786:deck#(1,5)=1143:deck#(1,6)=1796:deck#(1,7)=0
deck#(2,1)=146:deck#(2,2)=6.6:deck#(2,3)=226:deck#(2,4)=4.672:deck#(2,5)=1555:deck#(2,6)=2968:deck#(2,7)=0
deck#(3,1)=195:deck#(3,2)=3.8:deck#(3,3)=390:deck#(3,4)=4.235:deck#(3,5)=1060:deck#(3,6)=3996:deck(3,7)=0
deck#(4,1)=137:deck#(4,2)=6.9:deck#(4,3)=160:deck#(4,4)=3.943:deck#(4,5)=1115:deck#(4,6)=1796:deck(4,7)=0
deck#(5,1)=150:deck#(5,2)=6.3:deck#(5,3)=240:deck#(5,4)=4.299:deck#(5,5)=1415:deck#(5,6)=3179:deck#(5,7)=0
deck#(6,1)=202:deck#(6,2)=4.3:deck#(6,3)=515:deck#(6,4)=4.550:deck#(6,5)=1730:deck#(6,6)=5750:deck#(6,7)=0
deck#(7,1)=192:deck#(7,2)=4.2:deck#(7,3)=492:deck#(7,4)=4.330:deck#(7,5)=1520:deck#(7,6)=4961:deck#(7,7)=0
deck#(8,1)=118:deck#(8,2)=11.2:deck#(8,3)=115:deck#(8,4)=4.516:deck#(8,5)=1410:deck#(8,6)=1910:deck#(8,7)=0
deck#(9,1)=146:deck#(9,2)=6.4:deck#(9,3)=228:deck#(9,4)=4.430:deck#(9,5)=1300:deck#(9,6)=1308:deck#(9,7)=0
deck#(10,1)=150:deck#(10,2)=6.2:deck#(10,3)=237:deck#(10,4)=4.135:deck#(10,5)=1260:deck#(10,6)=1997:deck#(10,7)=0
deck#(11,1)=140:deck#(11,2)=7.2:deck#(11,3)=189:deck#(11,4)=4.355:deck#(11,5)=1215:deck#(11,6)=1796:deck#(11,7)=0
deck#(12,1)=155:deck#(12,2)=5.9:deck#(12,3)=287:deck#(12,4)=4.310:deck#(12,5)=1545:deck#(12,6)=3498:deck#(12,7)=0
deck#(13,1)=155:deck#(13,2)=5.6:deck#(13,3)=268:deck#(13,4)=4.082:deck#(13,5)=1390:deck#(13,6)=3498:deck#(13,7)=0
deck#(14,1)=155:deck#(14,2)=5.9:deck#(14,3)=231:deck#(14,4)=4.091:deck#(14,5)=1365:deck#(14,6)=2979:deck#(14,7)=0
deck#(15,1)=155:deck#(15,2)=6.1:deck#(15,3)=414:deck#(15,4)=5.055:deck#(15,5)=2434:deck#(15,6)=5998:deck#(15,7)=0
deck#(16,1)=155:deck#(16,2)=6.6:deck#(16,3)=247:deck#(16,4)=4.041:deck#(16,5)=1515:deck#(16,6)=3189:deck#(16,7)=0
deck#(17,1)=95:deck#(17,2)=15.5:deck#(17,3)=67:deck#(17,4)=4.020:deck#(17,5)=1226:deck#(17,6)=1399:deck#(17,7)=0
deck#(18,1)=150:deck#(18,2)=6.5:deck#(18,3)=215:deck#(18,4)=4.069:deck#(18,5)=1388:deck#(18,6)=3199:deck#(18,7)=0
CURRENT PROJECT: RETRO PAC-MAN