Public Sub AddRowToXmlFile()
    Dim hFileIn As Long
    Dim hFileOut As Long
    Dim strFileName As String
    Dim strTemp As String
    Dim strInput As String
    Dim intRowPos As Integer
    Dim intI As Integer
    
    strFileName = "D:\1\Test.xml"
    strTemp = "D:\1\TestTemp.xml"
    intRowPos =  2 
    
    hFileIn = FreeFile
    Open strFileName For Input Access Read As hFileIn
    
    hFileOut = FreeFile
    Open strTemp For Output Access Write As hFileOut
        
    Do Until EOF(hFileIn)
        intI = intI +  1 
        If intI = intRowPos Then
            Print #hFileOut, "<dataroot xmlns:>"
        Else
            Line Input #hFileIn, strInput
            Print #hFileOut, strInput
        End If
    Loop
    
    Close hFileIn
    Close hFileOut
    
    Kill strFileName
    Name strTemp As strFileName
End Sub