Change this:

Range("B" & i) = RetVal.innerText

to:

Range("B" & i) = RetVal.innerHTML