Dim Length as integer Axmscomm1.settings = "9600, n, 8, 1" axmscomm1.inputlen = 0 if Axmscomm1.Portopen = false kilnmscomm1.portopen = true length = len ("If you receive SMS, please reply.") * 2 AXMSCOMM1.Output = "AT CMGF = 0" VBCR AXMScomm1.output = "at cmgs =" & STR (15 Length) VBCR 'CHR $ (34) & "13750851683" & chR $ (34) & ", 129" vbCr '13057575064 is the recipient's mobile phone number AxMSComm1.Output = "0891682101501705F011000D91683157801586F3000800165982679C6536523077ED4FE1002C8BF756DE590D002E" & Chr $ (26) If AxMSComm1.PortOpen = True Then AxMSComm1.PortOpen = False
