Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim FCTemp, Celsius, Fahrenheit As Single
        Dim strFCTemp As String
        Dim Prompt As String = "Please enter a Fahrenheit or Celsius temperature below"
        Do
            strFCTemp = InputBox(Prompt, "Fahrenheit Selsius Converter")
            If strFCTemp <> "" Then
                FCTemp = CSng(strFCTemp)
                Celsius = ((FCTemp - 32) / 9) * 5
                Fahrenheit = ((FCTemp * 9) / 5) + 32
                MsgBox(FCTemp & "° Fahrenheit is " & Celsius & "° Celsius." & vbCrLf & FCTemp & "° Celsius is " & Fahrenheit & "° Fahrenheit.", , "Converted Temperature")
            End If
        Loop While strFCTemp <> ""
        Me.Close()
    End Sub
End Class