Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i