FAX 的程式 在 試傳部份 卡住 不傳回ok(編號：8892)

MSComm1.Handshaking = comRTSXOnXOff
'MSComm1.Settings = "19200,N,8,1"
Call OUT_AT("AT+FTS=8", 5) '//等待80ms
Call OUT_AT("AT+FTM=24", 5)　'//設定傳迭速率
T = Timer
For c = 1 To 675
MSComm1.Output = Chr(&H0)
Next
MSComm1.Output = Chr(DLE)
MSComm1.Output = Chr(ETX)
MSComm1.Handshaking = comNone
Call REC_OK("TCF ＞＞", 50)
收不到ok
FAX　的程式 在 試傳部份 卡住 不傳回ok
要怎樣才會傳回ok?