[NEED HELP] Currency coverter.

[Fragma]

That function will find 2 strings, and read the text in between both of those strings.

For example...

Code:

Dim myWebClient As New WebClient()
Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://www.xe.com/ucc/convert/?Amount=" & NUMBER & "&From=" &EUR&To=USD")
Dim download As String = Encoding.ASCII.GetString(myDatabuffer)

Dim CON As String = GetBetween(download, _
"<td align="right">", "</td>", 0)

That will download the webpage with the results from your search, and extract the string between "<td align="right">" and "</td>", which in this example would be 1 EUR = 1.42440 USD