Borrar todos los nodos hijos xml

Dim doc As New XmlDocument
doc.Load("ruta_archivo_xml")
Dim x As XmlNode = doc.SelectSingleNode("Data/VariablesSql")
x.RemoveAll()
doc.Save("ruta_archivo_xml")