xml request with HTTPS

Private Function ExecuteXmlRequest(ByVal requestXmlDoc As XmlDocument) As XmlDocument
        Dim responseXmlDoc As New XmlDocument
        Dim responseData As [String] = [String].Empty ' String to store the response ASCII representation.
 
        Dim xmlString As String = "<apiProtocol version=""1"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:noNamespaceSchemaLocation=""checkrequest.xsd""><checkRequest user=""uid"" password=""pid"" reference=""ref""><domain name=""test.com"" /></checkRequest></apiProtocol>" 'ConvertXmlToString(requestXmlDoc)
        ' Translate the passed message into ASCII and store it as a Byte array.
        Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(xmlString)
 
        Dim client As TcpClient
        Dim stream As NetworkStream
 
        Try
            Debug.Print("Connect to remote host:{0} port:{1} at:{2}", URL, PORT, Date.Now)
            Debug.Print("Request: {0}", xmlString)
 
            ' Create a TcpClient.
            ' Note, for this client to work you need to have a TcpServer 
            ' connected to the same address as specified by the server, port
            ' combination.
            client = New TcpClient(URL, PORT)
            client.ReceiveTimeout = 30000
            
            ' Get a client stream for reading and writing.
            stream = client.GetStream()
 
            ' Send the message to the connected TcpServer. 
            stream.Write(data, 0, data.Length)
 
            ' Receive the TcpServer.response.
            ' Buffer to store the response bytes.
            data = New [Byte](client.ReceiveBufferSize) {}
 
            ' Read the first batch of the TcpServer response bytes.
            Dim bytes As Int32
            bytes = stream.Read(data, 0, data.Length)
 
            ' Output the data received from the host and we have to cut tale
            responseData = System.Text.Encoding.ASCII.GetString(data) ', 0, bytes
 
            Debug.Print("Response: {0}", responseData)
 
            stream.Close()
            client.Close()
        Catch e As ArgumentNullException
            Debug.Print("ArgumentNullException: {0}", e)
        Catch e As SocketException
            Debug.Print("SocketException: {0}", e)
        Catch e As Exception
            Debug.Print("Connect Error: {0}", e)
        End Try
 
        ' construct the response xml
        Try
            responseXmlDoc.LoadXml(responseData)
        Catch ex As XmlException
            Debug.Print("Connect Error: {0}", ex.Message)
        End Try
 
        Return responseXmlDoc
 
    End Function