Public Function ReadValue(ByVal document As String, ByVal word As String) _
      As List(Of String)
 
        Dim output As New List(Of String)
 
        Dim startIndex As Integer = 0
        Dim indexOfWord, indexOfEndDelimiter, indexofStartdelimiter As Integer
 
        Do
            indexOfWord = document.IndexOf(word, startIndex)
            If indexOfWord > -1 Then
                indexofStartdelimiter = indexOfWord + word.Length
                indexOfEndDelimiter = document.IndexOf("<", indexOfWord + _
                  word.Length)
                If indexOfEndDelimiter > -1 Then
                    startIndex = indexOfEndDelimiter + 1
                    output.Add(document.Substring(indexofStartdelimiter, _
                      indexOfEndDelimiter - indexofStartdelimiter).Trim())
                End If
            End If
        Loop While indexOfWord > -1 AndAlso indexOfEndDelimiter > -1
 
        Return output
 
    End Function

        For Each word As String In ReadValue(document, "point")
            Debug.WriteLine(word)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist