怎样用字符串识别控件

Question

dim a as object
set a=text1
a="bbbbb"
这样可以运行并且Text1的内容变成了bbbbb
我想实现
dim a as object
dim b as string
b="Text1"
.......
.......
a="bbbbb"
也想让Text1的内容变成bbbbb
不知哪位老大能搞定？

Answer 1

使用Controls集合
    Dim a As Object
    Set a = Form1.Controls("Text1")
    a = "abc"

Answer 2

用CallByName("控件名").属性＝....，就可以了
如：CallByName(b).Text=a.text

Answer 3

Me.Controls(b).Text = "bbbb"