Public Function ReadValue(ByVal document As String, ByVal word As String) _
      As String
        Dim indexOfWord As Integer = document.IndexOf(word)
        For Each word In document
            If indexOfWord > -1 Then
                Dim indexOfStartDelimiter As Integer = document.IndexOf(" ", _
                  indexOfWord)
                Dim indexOfEndDelimiter As Integer = document.IndexOf("<", _
                indexOfStartDelimiter)
                Return document.Substring(indexOfStartDelimiter + 3, _
                  indexOfEndDelimiter - indexOfStartDelimiter - 3).Trim()
            Else
                Return String.Empty
            End If
        Next
    End Function

        RichTextBox1.Text = (ReadValue(doc, "point"))

<span class="ni">point Wort01</span>