sayın ozanakkaya teşekkür ettim, bi aşamasını yaptım yarısı kaldı, girdiğim 5 adet notu topluyor, ama tek tıklama buton işlevi oldu, yani bunu global olarak tanımlayamadım ki değerleri bazen ara ara gönderip süreç bittiğinde toplamını alayım




x = 0

For i = 1 To 5 Step 1

a = InputBox("ver")



puan(x) = a


x = x + 1

Next i

x = 0
a=0

For i = 1 To 5 Step 1

a = a + puan(x)

Next i

MsgBox a


End Sub

 yukarıdaki diziye beş tane 20 sayısı gönderiyorum bana toplam 120 sayısını veriyor, nerede hata yaptım acaba?