如何删除具有两个不同名称的xml节点

Question

我尝试使用函数删除具有2个不同名称的xml节点。有时这个词 使用和其他时间代码 - 例如“年”和“b074”
我收到一条错误消息，指出已超出最大错误数。

 <Person>                            <Person>
    <Name> John </Name>                 <Name> John </Name>
    <age> 24 </age>                     <age> 24 </age>
    <DOB>                               <DOB>
      <year> 1990 </year>                  <b074> 1990 </b074>
      <month> 03 </month>                  <b678> 03 </b678>
      <date> 23 </date>                    <b745> 23 </b745>
    </DOB>                              </DOB>
 </Person>                           </Person>   

 Dim ShortName as Boolean 

 Function HandleTagName(name as string) as XName 
     Select Case name
         Case "Year", "b074"
            If ShortName Then
                Return "b074"
            Else
                Return "Year"

            End If
      End Select
 End Function 

Sub CompressFile()
   Dim Doc as XDocument

   If doc.<Person>.<DOB>.HandleTagName(<Year>) isNot Nothing Then
     doc.<Person>.<DOB>.HandleTagName(<Year>).Remove()
     count += count + 1
   End If
 End Sub