VB 初学的问题

初学VB 以下代码是从书上抄来的 不能正常运行 其中关键是 txtInput 是个啥东西没搞明白 请高手指点 (是未定义的变量,或者是其他什么,原作者想要表达的是什么)
Option Explicit
'定义一个集合
Dim TextBoxs As New Collection

Private Sub cmdClear_Click()
Dim ctlItem As Control
For Each ctlItem In TextBoxs '遍历集合
ctlItem.Text = "" ' 并清空text
Next
End Sub

Private Sub cmdIndex_Click()
On Error GoTo Err
MsgBox TextBoxs.Item(CInt(Trim(txtInput.Text))).Text
MsgBox TextBoxs(CInt(Trim(txtInput.Text))).Text
Err:
MsgBox Err.Description
End Sub

Private Sub cmdName_Click()
On Error GoTo Err
'可以使用![]来访问集合成员,但此时只能使用特定Key,[]里的内容不能有""号
MsgBox TextBoxs![Text2].Text
'用()和特定Key来访问集合成员,关键字Item可省略
MsgBox TextBoxs.Item(Text2).Text
MsgBox TextBoxs(Text2).Text
'更为灵活的访问方式,变量传递Key
MsgBox TextBoxs.Item(Trim(txtInput.Text)).Text
MsgBox TextBoxs.Trim(txtInput.Text).Text
Exit Sub
Err:

txtinput不是变量，是文本框的名称，默认的是 text1 text2 …… 这里是修改后的属性名字 你用完全可以用 a 代替都可以，只要符合命名规则。txtinput.text 就是你在文本框内输入的 内容，其它的我就不说了，以你现在的水平看这个有难度，这段内容最起码要你掌握了所有基础后才看的懂

VB的简单问题，初学 关于vb的两个初学问题 vb初学问题 vb初学.菜鸟问题 VB 初学问题 新手初学VB，有问题 VB初学的一个问题！！亟待解决，谢谢个位大虾！ 初学请教！VB中Option Base 的问题 一个利用VB计算电话费的问题.初学，跪求！~ 初学VB,有些简单的问题想问!