Imports System

Imports System.Text

Imports System.Xml

Public Module Module1

    Public Sub Main()

        Dim stringaXml As String = "<nome>pinco</nome><cognome><![CDATA[pallino]]></cognome>"

        Dim risultato As String = EstraiTestoDaStringaXml(stringaXml)

​

        Console.WriteLine(risultato)

    End Sub

    Private Function EstraiTestoDaStringaXml(stringaXml As String) As String

​

        'Mi appoggio ad uno StringBuilder perché efficiente nell'assemblare stringhe da diverse concatenazioni successive

        Dim sb As New System.Text.StringBuilder()

        'Creo un'istanza del reader

        Dim reader As New XmlTextReader(stringaXml, XmlNodeType.Element, Nothing)

        'Leggo tutti i nodi xml trovati

        While reader.Read()

            'Mi interessano solo i nodi di testo o CDATA; se non è questo il caso, allora passo avanti

            If reader.NodeType <> XmlNodeType.Text And reader.NodeType <> XmlNodeType.CDATA Then Continue While

            'Se lo StringBuilder conteneva già qualcosa, allora aggiungo uno spazio come separatore

            If sb.Length > 0 Then sb.Append(" ")

            'Aggiungo il valore del nodo            

            sb.Append(reader.Value)

        End While

        Return sb.ToString()

    End Function

End Module