galiba tek sayfada iki kez bu kodları ard arda yazarak veriyi çekmee çalışıyosun eğer öyle yapıyorsan şu satırları 2. sefer yazdığından sil

Dim objXML, objRoot, objItems
Dim objItem

bide bunu fonksiyon haline getirirsen daha kullanışlı olur