private sub Command1_Clik()
for i = 1 to 100
call PutText("TxtA"& i)
next i
End sub

private sub PutText(Byval Text as object)
Text.text = "abc"
End sub

というイメージで、
TxtA1
TxtA2
TxtA3
　・
　・
　・


call PutText("TxtA"& i)
private sub PutText(Byval Text as object)

を実現するような方法はないでしょうか？