yardimcı olmak isteyen yok mu acaba

Dim son, b As Integer
for b = 1 to 3
metinci1 = "5 + 5"
metinci2 = "5 * 5"
metinci3 = "5 / 5"
metinci = metinci & b
son = Eval(metinci) ----> bu satır hata veriyor
next b

metinci1 bulunamadı diyor
son