如何删除xml的第一行并使用VBA添加两个新行

Question

我需要一个关于xml解析的帮助，这意味着我必须删除xml的第一行然后再添加2行。我知道如何添加两行，但不知道如何删除。

我的xml源文件。

<?xml version="1.0" encoding="UTF-8"?>
<ENVELOPE>
   <SHIPMENTS>
      <HEA>
         <ADDRESSES>
            <AEM>
               <COMPANY_ID />
               <KDNR />
               <NAME>abcd pvt ltd</NAME>
               <NAME2 />
               <ABT />
               <STR />
            </AEM>
         </ADDRESSES>
      </HEA>
   </SHIPMENTS>
</ENVELOPE>

VBA计划

Dim Msg$
Dim NumFich As Integer
Dim CheminNomFichier As String
Private Sub Form_Load()
    NumFich = FreeFile
    CheminNomFichier = "C:\Users\nypaul\Desktop\out\output.xml"
    Open CheminNomFichier For Input As #NumFich
    Msg$ = Input(FileLen(CheminNomFichier), NumFich)
    Close #NumFich
    If Msg$ = "" Then
        MsgBox "le fichier est vide", vbCritical
    Else
        NumFich = FreeFile
        Open CheminNomFichier For Output As #NumFich
        Print #NumFich, "<?xml version="; 1#; " encoding="; ISO - 8859 - 1;> <!DOCTYPE StatusNotification SYSTEM ""; 3; StatusNotification.dtd; ""> " & Msg$
        Close #NumFich
    End If
End Sub