Open StateMent

Maybe Comm=FreeFile Used

Open "COMFILE" For Binary Access Read Write As #1 

receiveBuff="@@@@@@@@@@"

Sleep 100

Debug.Print "Looking For incoming Msg"

On Error Resume Next

Do While True

receive = receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop 

On Error GoTo 0

Debug.Print "Looking again...."

On Error Resume Next 

Do While True 

receive= receiveBuff

Input #1, receive

If receive= receiveBuff Then Exit Do 

Debug.Print receive

Loop

On Error GoTo 0

Debug.Print "Finished...Close ComFile"

 Close #1