eliminar nodo archivo xml

Public Sub eliminar_empresa(ByVal archivo As String, ByVal rut As String)
        Dim doc As New XmlDocument
        doc.Load(archivo)
        Dim nodos As XmlNodeList = doc.GetElementsByTagName("empresa")
        For Each nodo As XmlNode In nodos
            Dim x = nodo("rut").InnerXml
            If nodo("rut").InnerXml = rut Then
                nodo.ParentNode.RemoveChild(nodo)
                Exit For
            End If
        Next
        doc.Save(archivo)
    End Sub