ASP.NET

Private Function SendRelayCommandTest(ByVal e As String) As String
        'SendTextToIP("setstate,1:" & thePort & "," & TheState)
        'Dim IPHostCC1 As String = "192.168.1.105"
        Dim IPHostCC1 As String = "226.45.306.158"

        Dim IPHostPort As Integer = 49989       	 Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect(IPHostCC1, IPHostPort)
        Dim networkStream As NetworkStream = tcpClient.GetStream()
        
        Dim strResponse As String
        Dim strCommand As String
        strCommand = e ' RelayEventArgs.SetState & ",1:" & e.Port & "," & e.State
        strResponse = "No response"
        Try
            If networkStream.CanWrite Then
                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(strCommand & vbCr)
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                
                Dim bytes(tcpClient.ReceiveBufferSize) As Byte
                networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
                Dim returndata As String = Encoding.ASCII.GetString(bytes)
                strResponse = "Return: " & CStr(returndata)
            Else
                If Not networkStream.CanWrite Then
                    strResponse = "Error: Cannot write data to the Relay device"
                    tcpClient.Close()
                End If
            End If
        Catch ex As ArgumentNullException
            strResponse = "ArgumentNullException: " & ex.Message
        Catch ex As SocketException
            strResponse = "SocketException: " & ex.Message
        Catch ex As Exception
            strResponse = "Exception: " & ex.Message
        Finally
            tcpClient.Close()
            networkStream.Close()
        End Try
        Return strResponse


    End Function