Welcome to Stratos!
For I As Integer = 0 To dimencion Dim CoorSalida As String Try CoorSalida = Coordenadas(I) Catch ex As Exception CoorSalida = "0-0" End Try txtMensaje.AppendText(vbNewLine & "Enviando Coordenada " & CoorSalida & " de ID " & I & " a ID " & UBound(ID_PJ)) WinSockServer.EnviarDatos(IDTerminal, I & "*" & CoorSalida & "*" & UBound(ID_PJ) & "*NOMBRE][") Next