新手求解 VB编程问题

If Dx = 6 Then '信息接收
 Me.Timer1.Interval = 100
 FromModems = FromModems & Form1.MSComm1.Input
  If InStr(FromModems, "+CMGS:") <> 0 And InStr(FromModems, "OK") <> 0 Then
  LzJ = "成功"
  Dx = 7
  Exit Sub
  End If 


这段代码，从If InStr(FromModems, "+CMGS:") <> 0 And InStr(FromModems, "OK") <> 0 Then 这里直接跳到End if了，这里InStr(FromModems,"+cmgs:")和InStr(FromModems,"OK")都 = 0 。但是我怎样找出这个错误呢。代码里InStr太多了。高手们经验丰富，能告诉我大概是什么问题么。

是几个月前我改动了数据库。弄好了

现在我想做一个定时发送短信，应该怎样做了，大神们有例子吗？