hola a todos les muestro mi problema yo tengo que enviar estos datos por winsock de esta manera los envia bien pero yo quiero modificar lo que envia como podria hacer. Desde el programa como en un textbox pero al querer hacerlo no lo envi correctamente

Winsock1.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Winsock1.SendData Chr(&H2) & Chr(&H1) & Chr(&H1) & Chr(&H2D) & Chr(&H0) & Chr(&HD2) & Chr(&HFF) & Chr(&H2) & Chr(&H80) & Chr(&H4) & Chr(&H6) & Chr(&H2) & Chr(&H88) & Chr(&HE5) & Chr(&H37) & Chr(&H1) & Chr(&H6) & Chr(&H0) & Chr(&H4B) & Chr(&HE4) & Chr(&H13) & Chr(&HC3) & Chr(&H15) & Chr(&H3A) & Chr(&H9A) & Chr(&HAE) & Chr(&HC0) & Chr(&H1) & Chr(&H11) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H87) & Chr(&H35) & Chr(&HBC) & Chr(&HB2) & Chr(&HB3) & Chr(&H3A) & Chr(&HB1) & Chr(&HB5) & Chr(&HBD) & Chr(&H32) & Chr(&HB2) & Chr(&HB5) & Chr(&HB7) & Chr(&H19) & Chr(&HB8) & Chr(&H3B) & Chr(&H71) & Chr(&H4F) & Chr(&HD) & Chr(&H80) & Chr(&H61) & Chr(&H6) & Chr(&H11) & Chr(&H25)