Problem pasting xml data

[EDUCATED MONKEY]

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
The set up is office 2007 xp pro ie 8<o></o>
I am use a sub that was worked with ordinary text, but for some reason it will not past the returned xml.<o></o>
<o> </o>
I can get the xml copy and past in the worksheet column no problem <o></o>
I recorded a macro and the result was this code <o></o>
Columns("A:A").Select<o></o>
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _<o></o>
False<o></o>
Which is not that different to the one I have used in the past with success so what I am doing wrong?<o></o>
Worksheets("INCOMMING_DATA").Range("A1").Select<o></o>
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _<o></o>
False<o></o>
Nether version works in the case, however at one point I though I seen the data in column A then it disappeared <o></o>
I have investigated the url is correct as I can see the data arrive in the browser, and I am able to copy and past that with out any problem <o></o>

Sub RetriveAuthor()
'
' RetriveAuthor Macro
' Macro recorded 09/08/2011 by Peter Hayward
'
' Keyboard Shortcut: Ctrl+a Columns("A:A").Select
Dim Q As String
Dim aurl As String
Dim EXP
                          Sheets("CONTROL").Select
            Q = Worksheets("CONTROL").Range("C2").Value ' pass AUTHOR in
aurl = "http://api.alibris.com/v1/public/search?wquery=" & Q & "&apikey="
                       Set EXP = CreateObject("InternetExplorer.application")
                                  EXP.Visible = True
                                       EXP.Navigate (aurl)
                                
                   Application.Wait (Now + TimeSerial(0, 0, 4))
                                   SendKeys "^a"
                                   SendKeys "^c"
                  Application.Wait (Now + TimeSerial(0, 0, 1))
                        
                          Worksheets("INCOMMING_DATA").Select
                          
                        Worksheets("INCOMMING_DATA").Range("A1").Select
                          
  
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
        False
       
End Sub