Cordial saludo

Estoy utilizando winsock para enviar por ethernet a una maquina unos codigos
La maquina que me devuelve +1 ó +0 de acuerdo al código pero cuando lo envió no toma los tiempo de retardo Se bloque un momento y luego envía todo sin retardos

En la aplicación necesito enviar un código y esperar que llegue un +1 o +0
El código se envía por el textbox2 y se recibe el dato por el textbox1

Les pido su colaboración si me puede ayudar con este contratiempo que tengo


--------------------------Envió de datos -------------------------------------------------------------------

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If Button2.BackColor = Color.Red Then
MsgBox(" Primero hay que conectarse ")
Else
Button1.BackColor = Color.Green

TextBox2.Text = "*CLS;*OPC?"
Cliente.SendData(TextBox2.Text & vbCrLf)
For T As Integer = 1 To 59500000
T = T + 1
Next T

TextBox2.Text = "CONF:OPER:MODE 0;*OPC?"
Cliente.SendData(TextBox2.Text & vbCrLf)
For T As Integer = 1 To 59500000
T = T + 1
Next T

TextBox2.Text = "CONF:APPLY;*OPC?"
Cliente.SendData(TextBox2.Text & vbCrLf)
For T As Integer = 1 To 59500000
T = T + 1
Next T

TextBox2.Text = "*STB?"
Cliente.SendData(TextBox2.Text & vbCrLf)

For T As Integer = 1 To 59500000
T = T + 1
Next

TextBox2.Text = "*CLS;*OPC?"
Cliente.SendData(TextBox2.Text & vbCrLf)
For T As Integer = 1 To 59500000
T = T + 1
Next T
EndSub


-------------------------------- Lectura de datos -----------------------------------------------------------------
Private Sub Cliente_DataArrival(sender As Object, e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival Event) Handles Cliente.DataArrival
Cliente.GetData(TextBox1.Text)
EndSub