初学者请求帮忙

菜鸟请求帮忙
我拷贝一个程序，程序如下
Private   Sub   option1_Click()

Select   Case   index
Case   0
yssjt.Text   =   24:   Text2.ToolTipText   =   "4~6 ":   Text3.ToolTipText   =   "一般:3~5   发达地区:7~8 "
Case   1
yssjt.Text   =   10:   Text2.ToolTipText   =   "2.5~4.0 ":   Text3.ToolTipText   =   "2~3 "
End   Select
End   Sub
运行时老是要求对象     错误提示在第4行的yssjt.Text=24
不知道怎么解决

[解决办法]
加一个textbox控件，命名为yssjt