Adiconar linha arquivo xml

Question

Boa tarde, preciso de ajuda para adicionar linhas a um arquivo xml

Criação do xml

 Dim LISTA As New ListBox
    Private Sub Gerarxml()
        LISTA.Items.Add("<?xml version=" & """" & "1.0" & """" & "?>")
        LISTA.Items.Add("<cliente>" & txtnome.text & "</cliente>")
        LISTA.Items.Add("<cpf>" & txtnome.text & "</cpf>")
        LISTA.Items.Add("<!-- Data criação:" & Date.Today & "-->")
    End Sub

Salvar arquivo

Private Sub SalvarXML()
Dim arq As New IO.StreamWriter("C:\XML\ArqXML.xml, True)
For i As Integer = 0 To LISTA.Items.Count - 1
arq.WriteLine(LISTA.Items(i).ToString())
Next
arq.Close()
MsgBox("Salvo com sucesso!", MsgBoxStyle.Information, Title:="XML")
Me.Close()
End Sub

O problema começa ai, se por exemplo eu quiser adicionar mais uma tag depois que o arquivo foi salvo ele salva a nova linha no mesmo arquivo só que a nova tag fica fora da tag pai.

Obs: fiz esse rascunho só pra mostrar e não adicionei a tag pai