Visual Basic

If Clipboard.ContainsData("XML Spreadsheet") = True Then
            Dim ms As MemoryStream = CType(Clipboard.GetData("XML Spreadsheet"), MemoryStream)
            Dim b(CInt(ms.Length)) As Byte
            ms.Read(b, 0, CInt(ms.Length))
            Debug.Write(CStr(System.Text.UTF7Encoding.UTF8.GetString(b)))
            '=====================================================
            Dim m_xmld As XmlDocument
            Dim m_nodelist As XmlNodeList
            Dim m_node As XmlNode
            'Create the XML Document
            m_xmld = New XmlDocument()

            'Load the Xml content from the clipboard
            m_xmld.LoadXml(System.Text.UTF8Encoding.UTF8.GetString(b))

            'Get the list of name nodes 
            m_nodelist = m_xmld.SelectNodes("/Workbook/Worksheet/Row")

            'Loop through the nodes
            For Each m_node In m_nodelist
                'Row data code here

            Next
            '=====================================================

        Else
            MsgBox("No XML Spreadsheet data on clipboard")
        End If