Try this, it should work:
[highlight=vb.net] Private Function GetPaypalInformation(ByRef wb As WebBrowser, ByVal className As String) As String
Try
Dim elem As HtmlElementCollection = wb.Document.GetElementsByTagName("td")
Return elem(Enumerable.Range(0, elem.Count).First(Function(i) elem(i).GetAttribute("className") = className)).InnerText
Catch
Return String.Empty
End Try
End Function[/highlight]
Usage:
Dim grossValue As String = GetPaypalInformation(web, "cur_val") 'You put the class name as the 2nd argument
MsgBox(grossValue) 'Display the value in a messagebox
It should display $0.01 USD if it works properly.