Question

I want to make a sort of pound to euro converter using a function.
What I want the system to do it, when you type in your number into the text box and press convert, I want the Euro converted number in the label to show up.

I believe this is done by telling the system to multiply any number typed in by the conversion rate of 1.34509.

But I dont think im doing it correctly.

Protected Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click

    End Sub

    Function Convert(txtPound As Decimal) As Decimal
        'declare variable to store answer 
        Dim Converter As Decimal
        'calculate the Answer
        Converter = Convert(txtPound * 1.34509)
        'return the Answer
        Return Converter

    End Function

End Class

Answer 1

This will suits your requirement,

Event:

'---This is the procedure which is going to handle your btnGo's Click Event
Protected Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click

'---Here we are calling the function Convert(Decimal) by passing the txtPound's text
   msgbox(Convert(Decimal.Parse(txtPound.Text)))

End Sub

Function:

'---This function will receive the passed value as xValue and execute its code  
Private Function Convert(xValue as Decimal) as Decimal

'---This line will do the conversion and simply send back the result to the caller.  
   return (xValue * 1.34509)

End Function

And Furtherly if you need more clarification on it, then just refer this.