再次读取时 XMLTextReader 挂起

Question

我有一些基本的 XMLTextReader 代码，可以从 URL 读取 XML 文件，该代码附加到用户表单按钮上，第一次就可以完美运行。但是，当我再次单击该按钮以重新运行代码时，它会挂在 XML_Reader.Read() 部分上。下面是一个类似于我的代码的基本程序。

1. 一个用户表单打开。

2. 我点击了一个按钮。

3. 用户表单没有关闭。

4. 执行下面的代码。

          Dim XML_Reader As XmlTextReader = New XmlTextReader(XMLPath & XMLFile)
   
           While XML_Reader.Read()
   
               XML_Reader.ReadToFollowing("AnElement")
   
               If XML_Reader.GetAttribute("AnAttribute") <> vbNullString Then
   
                   Element_Name = Split(XML_Reader.GetAttribute("AnAtrribute"), ".")(2)
   
                   Dim CL_XML_Reader As XmlReader = XML_Reader.ReadSubtree()
   
                   While CL_XML_Reader.ReadToFollowing("AnotherElement")
   
                           ' Some code
   
                   End While
   
                   CL_XML_Reader.Close()
   
                   Exit While ' leave early
   
               End If
   
           End While
   
           XML_Reader.Close()
   

5. 代码执行后更新用户表单（第一次运行）

6. 我再次点击按钮重新运行。

7. 代码挂在 XML_Reader.Read() 行。

任何帮助都将不胜感激，即使它是用 C# 回答的。