Eliminar espacios/formato entre nodos xml

ejemplo: <TED version="1.0">" & vbCrLf & "  <DD>" & vbCrLf & "    <RE>123-4</RE>


Public Function str_ted_trim(ByVal str As String) As String
            Dim doc As XDocument = XDocument.Parse(str, LoadOptions.None)
            str = doc.ToString(SaveOptions.DisableFormatting)
            Return str
        End Function


<TED version="1.0"><DD> <RE>123-4</RE>


fuente