first project

Imports system.IO
Imports System.Text.regularExpressions

Public Class Form1

    Private Sub doCalculate()
        'Need the Scraping
        Dim str As System.IO.Stream
        Dim srRead As System.IO.StreamReader
        Dim strAmount As String

        strAmount = CurrencyAmount.Text

        ' get values from the textboxes
        Dim strFrom() As String = Split(currencyFrom.Text, "-")
        Dim strTo() As String = Split(currencyTo.Text, "-")

        ' web fetching vriables
        Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.xe.com/ucc/convert.cgi?Amount=" + strAmount + "&from=" + strFrom(1) + "&to=" + strTo(1) + "&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)

        '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 successfulMatch As Match
            For Each successfulMatch In myMatches
                Maintext.Text = successfulMatch.Value
            Next
        Catch ex As Exception
            Maintext.Text = "Unable to connect to XE"
        Finally
            ' close the streams
            srRead.Close()
            str.Close()
        End Try
        convertToLabel.Text = strAmount + "" + strFrom(0) + "Converts To:"
    End Sub

    Private Sub convertbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertbtn.Click
        ' Check if the currency is anumber
        If Not IsNumeric(CurrencyAmount.Text) Then
            MsgBox("please enter a valid amount!", MsgBoxStyle.Information, "Invalid Input")
            CurrencyAmount.Focus()
            Return
        End If

        doCalculate()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        currencyFrom.selectedIndex = 0
        currencyTo.SelectedIndex = 1
    End Sub
End Class