Hi jose,
This is my code;

Private Sub Command1_Click()
e$ = Text3.Text
f = Left(e$, 1)
g = Mid(e$, 2, 1)
h = Mid(e$, 3, 1)
i = Mid(e$, 4, 1)
MSComm1.PortOpen = True
MSComm1.Output = Chr$(Asc(f))
MSComm1.Output = Chr$(Asc(g))
MSComm1.Output = Chr$(Asc(h))
MSComm1.Output = Chr$(Asc(i))
Text1.Text = MSComm1.Input
Do
DoEvents
BUFFER$ = BUFFER$ & MSComm1.Input
Loop Until InStr(BUFFER$, Chr$(49))
OA = Mid(BUFFER$, 20, 3);up to you
Text1.Text = OA
MSComm1.PortOpen = False
End Sub