lcdstring = "ATDT " + lcNum2Dial + CHR(13) opencomm = RegFn("OpenComm", "CII", "I", 'User.exe') writecomm = RegFn("WriteComm", "ICI", "I", 'User.exe') closecomm = RegFn("CloseComm", "I", "I", 'User.exe') lnport = CallFn(OpenComm, lccomport, 100, 100) =CallFn(WriteComm, lnport, lcdstring, len(lcdstring)) =MESSAGEBOX('Dialing '+ALLTRIM(lcNum2Dial)+CHR(13)+CHR(13)+; "Pick up the phone and press any key",64) lcdstring=CHR(10)+CHR(13)+CHR(10)+CHR(13) =CallFn(WriteComm, lnport, lcdstring, len(lcdstring)) =CallFn(CloseComm, lnport)Marcia