Can This be Done

[tcullen]

Can this be converted to something simpler ???

    total = a(0) + a(1) + a(2) + a(3) + a(4) + a(5) + a(6) _
                + a(7) + a(8) + a(9) + a(10) + a(11) + a(12) + a(13) _
                + a(14) + a(15) + a(16) + a(17) + a(18) + a(19) + a(20)
                
    total1 = (score / 70) * 100 

Like this ???

total = Sum a(1 To 20) / 70 * 100

[AIS_DK]

How about:

Dim i as byte
 
For i=0 to 20
   Total = Total + a(i)
Next i
total1 = (Total / 70) * 100

[tcullen]

Thanks for that finally worked out where to put the ode and it works perfectly