Dim 'lere gerek yok.
Anladığım kadarıyla metinci1, metinci2, metinci3..... diye metin kutularınız var ve HesaplanacakAlan 'ın yanında KacıncıMetin alanı ve Sonuc alanı var.
Yapmanız gereken ;
1-olay yordamına şunu yazmak;

Sonuc=Eval(me("metinci" & KacıncıMetin))

2- metinci kutularına hesaplama şeklini (formülü) , başında = olmadan yazmak. örn: metinci1 'e HesaplanacakAlan +5 yazın, metinci2 'ye HesaplanacakAlan +2, metinci3 'e 3*HesaplanacakAlan yazın.