Visual basic code for temp conversion of fah to celsius and celsius to Fahrenheit?

01Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click02 Dim dblTemp As Double

03 Dim dblResult As Double

04 Convert.ToString(txtTemp)

05 If radCelsius.Checked = True Then

06 dblResult = (dblTemp * 9) / 5 - 32

07 ElseIf radFahrenheit.Checked = True Then

08 dblResult = (dblTemp * 5 / 9) + 32

09 End If

10 lblResult.Text = Format(dblResult, ".")

11 End Sub