Public Sub open_port(p)


' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input is used.
MSComm1.InputLen = 0

On Error GoTo errport:

MSComm1.CommPort = p
MSComm1.PortOpen = True


Exit Sub


errport:

nerro = Err.Number



x$ = MsgBox(Err.Description, vbCritical, " ERROR")



If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
flag_erro = 1
Resume Next
End Sub

Public Sub check_port()

MSComm1.InputLen = 0 ' clear buffer
tempo = 1 'seta flag de tempo
Timer1.Interval = 1000 'Wait 1 secound
MSComm1.Output = "K" + Chr$(13) 'send control
Timer1.Enabled = True
Do
DoEvents
If tempo = 0 Then GoTo no_answer
Loop Until MSComm1.InBufferCount >= 1
' Read the "OK" response data in the serial port.
x$ = MSComm1.Input

MsgBox x$
Timer1.Enabled = False
........