Dim cpBytesRec As Int64 = sender2.Receive(bytes)
dataFromCp = Encoding.ASCII.GetString(bytes, 0, cpBytesRec)
Console.WriteLine("Data From ChoicePoint = {0}", dataFromCp)

Private Function TransmitToCP(ByVal data As Byte()) As String
 
        Dim cpPort As Integer = 10102                       
        Dim bytes(1500) As Byte
        Dim dataFromCp As String = ""
        Dim CPDATA As String = ""
        Dim longip As IPAddress
        longip = IPAddress.Parse("67.241.41.236")
 
 
        Try
            Dim cpServerEP As New IPEndPoint(longIP, cpPort)
 
            ' Create a TCP/IP socket.
            Dim sender2 As New Socket(AddressFamily.InterNetwork, _
                SocketType.Stream, ProtocolType.Tcp)
 
            Console.WriteLine("Socket waiting to connect to cp")
 
            ' Connect the socket to the remote endpoint. Catch any errors.
            Try
                sender2.Connect(cpServerEP)
 
                Console.WriteLine("Socket connected to cp {0}", _
                    sender2.RemoteEndPoint.ToString())
 
 
                ' Send the data through the socket.
                Dim bytesSent As Integer = sender2.Send(data)
 
 
 
                ' Receive the response from the remote device.
                Dim cpBytesRec As Int64 = sender2.Receive(bytes)
                dataFromCp = Encoding.ASCII.GetString(bytes, 0, cpBytesRec)
                Console.WriteLine("Data From ChoicePoint = {0}", dataFromCp)
 
 
                ' Release the socket.
                sender2.Shutdown(SocketShutdown.Both)
                sender2.Close()