Help with CDATA

[hopcycle]

I have some data that I need to retrieve from an xml files CDATA as seen in <description> below.

<Placemark>
<name><![CDATA[Statistics]]></name>
<description><![CDATA[Distance: 1.61 km (1.0 mi)
Time: 7:56
Moving Time: 7:53
Average Speed: 12.18 km/h (7.6 mi/h)
Average Moving Speed: 12.27 km/h (7.6 mi/h)
Max Speed: 16.30 km/h (10.1 mi/h)
Min Elevation: -24 m (-80 ft)
Max Elevation: -10 m (-32 ft)
Elevation Gain: 23 m (75 ft)
Max Grade: 0 %
Min Grade: 0 %
]]></description>
<styleUrl>#sh_ylw-pushpin</styleUrl>
<Point>
<coordinates>-82.621966,27.773286</coordinates>
</Point>
</Placemark>
<Placemark>

I need to separate the data into individual strings like this:

Time: 7:56
Moving Time: 7:53
Average Speed: 12.18 km/h (7.6 mi/h)
Average Moving Speed: 12.27 km/h (7.6 mi/h)
Max Speed: 16.30 km/h (10.1 mi/h)
Min Elevation: -24 m (-80 ft)
Max Elevation: -10 m (-32 ft)
Elevation Gain: 23 m (75 ft)
Max Grade: 0 %
Min Grade: 0 %

but when I load it into a textbox with the code below, it is all bunched together like this:

Distance: 1.61 km (1.0 mi)Time: 7:56Moving Time: 7:53Average Speed:12.18 km/h (7.6 mi/h)Average Moving Speed: 12.27 km/h (7.6 mi/h)Max Speed:16.30 km/h (10.1 mi/h)Min Elevation: -24 m (-80 ft)Max Elevation: -10 m (-32 ft)Elevation Gain: 23 m (75 ft)Max Grade: 0 %Min Grade: 0 %

Is there a way to separate the CDATA into separate lines as in the first example? The only thing I could think of was using split somehow?

My Code

DSet.ReadXmlSchema(strPath)
DSet.ReadXml(strPath)
DTable = DSet.Tables!Placemark
Textbox.text = DTable.Rows(0).Item(1)

Thanks

[kareninstructor]

The following will extract your data. The function GetInfo was uses rather than a simple Split because several lines in the data has multiple colons which would cause incorrect results as the lines with say two colons would return too many elements

Private Sub CDataDemo()
    Dim query = (From T In XDocument.Load("YourDocumentNameGoesHere.xml")...<description> _
                 Select Item = T.Nodes.OfType(Of XCData).FirstOrDefault.Value).FirstOrDefault

    If query IsNot Nothing Then

        Dim Parts = (From x In (From T In query.Split(Chr(10)) _
                                Where T.Length > 0 Select T) Let Item = GetInfo(x) _
                                Select New With {.Description = Item(0), .Value = Item(1)}).ToList

        For Each line In Parts
            Console.WriteLine("->{0} -> {1}", line.Description, line.Value)
        Next

    End If
End Sub
Private Function GetInfo(ByVal sender As String) As String()
    Dim Pos = sender.IndexOf(":"c)
    If Pos > -1 Then
        Return New String() {sender.Substring(0, Pos), sender.Substring(Pos)}
    Else
        Return New String() {"", ""}
    End If
End Function

[hopcycle]

Thanks! Worked out well for me.