It is an strange bug... By now you can create the object each time
you're going to use it:
DIM MyDepth AS Integer
DIM Xml AS XmlReader
DIM nI AS Integer
FOR nI = 1 TO 4
TxtData.Text = TxtData.Text & "\n Loop = " & nI & "\n"
Xml=NEW XmlReader