Hello I have a problem when dealing on a currency program ONLINE, as many changes were fixed but only one major thing, is that it cannot be multiplied.

Example = When converting USD = 3 to GBP then equals to =3.4323

But USD =4 to GBP makes same result instead of different answer. In short the standard rates was displayed only instead of multiplied answers.

Here is the code for online

Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Net

Public Class MainFrmOnline
    Dim strfrom() As String
    Dim strto() As String
    Dim strAmount As String
    Dim result As Decimal
    ' Need the scraping
    Dim Str As System.IO.Stream
    Dim srRead As System.IO.StreamReader

Private Sub DoCalculate()

    strAmount = Val(Enteramounttxt.Text)

    ' Get values from the textboxes
    Dim strFrom() As String = Split(Listfrom.Text, " - ")
    Dim strTo() As String = Split(Listto.Text, " - ")

    ' Web fetching variables

    Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.xe.com/currencyconverter/convert/?Amount=" + strAmount + "&From=" + strFrom(1) + "&To=" + strTo(1) + "YER&image.x=47&image.y=19&image=Submit")
        Dim resp As System.Net.WebResponse = req.GetResponse
        Str = resp.GetResponseStream
        srRead = New System.IO.StreamReader(Str)
    Catch ex As System.Net.WebException
        Resulttext.Text = "Unable to connect to server"
    End Try

    ' Match the response
        Dim myMatches As MatchCollection
        Dim myRegExp As New Regex("([0-9]+\.[0-9]+\ " + strTo(1) + ")")

        myMatches = myRegExp.Matches(srRead.ReadToEnd)

        ' Search for all the words in the string
        Dim sucessfulMatch As Match
        For Each sucessfulMatch In myMatches

            Resulttext.Text = sucessfulMatch.Value.Replace(" ", " ")

    Catch ex As Exception
        Resulttext.Text = "Unable to connect to server"
    End Try

    ConverttoLabel.Text = strAmount + " " + strFrom(0) + " Converts To: "
End Sub

Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
    ConverttoLabel.Text = ""
    ProgressBarQuery.Value = 0
    If NetworkInformation.NetworkInterface.GetIsNetworkAvailable Then
        Resulttext.Text = " The program is connected in the internet"
        Resulttext.Text = " Detected a problem, please check your internet connection"
    End If
End Sub

Private Sub Enterbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enterbutton.Click
    ' Check if the currency is a number
    If Not IsNumeric(Enteramounttxt.Text) Then
        MsgBox("Please enter a valid amount!", MsgBoxStyle.Information, "Invalid Input")
        ClearButton.Enabled = False
    End If
    MessageBox.Show(" Please wait while the process is on going, press OK button to continue", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Information)
    ProgressBarQuery.Value = 0
    ClearButton.Enabled = True

End Sub