Dim Text As String = " <event> " & vbCrLf & _
      "<name>Text1</name>" & vbCrLf & _
      "<address>TEXT2</address>" & vbCrLf & _
      "<message>TEXT3</message>" & vbCrLf & _
      "</event>"
 
'Dann so:
 
Dim lines() As String = Text.Split _
     (New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
 
Dim itext As New Collections.Generic.List(Of String)
 
For i As Integer = 0 To lines.Count - 1
   Dim subtext As String = ExtractSubstring(lines(i), ">"c, "<"c, 0)
   If subtext <> String.Empty Then itext.Add(subtext)
Next i