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