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

Code:
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")
    Try
        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
    Try
        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(" ", " ")

        Next
    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
    Enteramounttxt.Clear()
    ConverttoLabel.Text = ""
    TimerModeRequest.Stop()
    ProgressBarQuery.Value = 0
    If NetworkInformation.NetworkInterface.GetIsNetworkAvailable Then
        Resulttext.Text = " The program is connected in the internet"
    Else
        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")
        Enteramounttxt.Focus()
        Return
        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
    TimerModeRequest.Start()
    ClearButton.Enabled = True

End Sub