Example (from an App I wrote): To use: create a VB project with a com port Try in Sub Main: SendUecpPS(" RADIO") Sleep 5000 SendUecpPS(" M24.FM") -------------------------------------- Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Function SendUecpPS(ByVal sPS As String) As String Dim lVal As Long Dim sFrame As String, sRet As String sPS = StrRDS(sPS) & " " sFrame = Space(512) lVal = PS(0, 0, sPS, sFrame) MSComm1.Output = Mid(sFrame, 1, lVal) sRet = WaitUecpReply ' If you would like to retrieve the error code 0 = no problem SendUecpPS = sRet End Function Function WaitUecpReply() As String Dim dStart As Date dStart = Now() Do If MSComm1.InBufferCount > 0 Then WaitUecpReply = MSComm1.Input Exit Do End If Sleep 100 If zEncoder(iCurEncoder).fNoWaitReply Then WaitUecpReply = "0" Exit Do End If If Now() - dStart > 10 / 86400 Then WaitUecpReply = "2" Exit Do End If Loop End Function