كيف يتم ادخال بيانات لمصفوفة مربعات نص

السبب أن الأكسس يعتبر txt(i) أنه استدعاء لدالة أو لإجراء بسبب الأقواس .

اليك كود يقوم بما طلبت :

Dim ctl As Control
Dim I As Byte
I = 1
    For Each ctl In Me.Controls
        If ctl.Name = "txt" & I Then
        ctl = I
        I = I + 1
        End If
    Next ctl

ولك تحياتي