mechatron's dashboard

I needed direct acces the socket data bytes ... if break to bytes socketdata this code is working is very slowly this circle time 15 milisecond...... :(

DATAM=sock.getdata(255)
IO.portnum=pl_io_port_num_0
IO.portenabled=255
------------------------------------------------------ This block is very slowly running.....
L=LEN(DATAM)
FOR X=1 TO L
XM(X)=(MID(DATAM,X,1))
NEXT X
IO.portstate=ASC(XM(1))
------------------------------------------------------
sock.setdata(ASC(XM(1)))
sock.send
sock.connect