新手求解 VB程序怎么停止定时发送短信

新手求解 VB程序如何停止定时发送短信
Private Sub Timer6_Timer()
  If InStr(Tems, "Yes") <> 0 Then
  Timer6.Enabled = False
  Else
  Me.Timer6.Interval = 60000
  Call Armed
  End If
End Sub 
这样好像不行啊，我发送Yes的短信指令，这里截取不到

------解决方案--------------------
Tems是否是全局变量。

如果是多窗体请在模块里有public定义全局变量。

------解决方案--------------------
模块加一个,然后public Tems as string

某个窗体中加一个按钮

VB code

Private Sub Command1_Click()
Tems = "Yes"
End Sub