ثبت حروف یک فیلد به صورت هر حرف در یک فیلد

سلام
دوستان من به یه مشکل بر خوردم در کد میخوام که در حلقه for اون هر حرف یا عدد رو داخل یه فیلد بزازم نام فیل ها هم t1 تا t10 هست و میخوام در کد t1.value با اجرای حلقه تغییر کنه تا هر حرف توی فیلد خودش قرار بگیره
ممنون میشم کمکم کنید

Dim lg
lg = Len(t.Value)
For i = 1 To lg Step 1
"t"+i.value = Mid(t.Text, i, 1)
Next i