Open "COM4:300,N,8,1,BIN,CD0,CS0,DS0,OP0,RS,TB160,RB160" For Random As #1
Put #1, , "AT+CMGF=1" & Chr$(13)
Put #1, , "AT+CMGS=" & Chr$(34) & "00905423870000" & Chr$(34) & Chr$(13)
Put #1, ,...