提示类型不匹配的问题

Question

请问这个程序为什么 运行后会提示,类型不匹配,哪里错了,高手帮忙改一下
Private Sub Timer3_Timer()
Dim m
m = "时间到"
If Text2.Text <> 0 Then
Text2.Text = Text2.Text - 1
Else
Text2.Text = m
End If
End Sub
Private Sub Form_Load()
Text2.Text = 3
End Sub

Answer 1

Private Sub Timer3_Timer() 
Dim m 
m = "时间到" 
If Text2.Text <> 0 Then 
    Text2.Text = Text2.Text - 1 
Else 
    msgbox m 
End If 
End Sub 

Answer 2

Text2.Text 的数据类型应该是string 型的吧，做Text2.Text =Text2.Text -1操作出错了吧。我不是写vb的，所以可能说的不对！

Answer 3

运行后会提示,类型不匹配问题,运行后text的值为0时,msg的提示总是存在啊,再指教一下