到底错在哪里？解决方法

到底错在哪里？？？？？？？？？？？
Private   Sub   Form_Load()
Timer2.Interval   =   10000
Timer2.Enabled   =   False
Dim   nextline   As   String
Dim   b   As   String
On   Error   GoTo   myerror

Open   App.Path   +   "\qqnumber.txt "   For   Input   As   #1
Do   Until   EOF(1)
Line   Input   #1,   nextline
b   =   b   +   nextline   +   Chr(13)   +   Chr(10)
Loop
Close   #1
Text1.Text   =   b

Exit   Sub
myerror:
MsgBox   "文件不存在 "
End   Sub


我想把
Timer2.Interval   =   10000
换
Timer2.Interval   =cc

设置成
dim   cc   as   integer
  cc=text4.text

cc里面输入数字

但就是说类型不匹配   我快郁闷死！！！！


[解决办法]
cc=text4.text改为cc=val(text4.text)
[解决办法]
cc=text4.text改为cc=val(text4.text)
或text4的value属性中设置为0