Imports System

Public Module Module1

    Public Sub Main()

        Dim inputTemp, outputTemp As single

        Dim choice As Char

        console.WriteLine("Enter an input temperature:")

        inputTemp = console.Readline()

        console.WriteLine("Was that in F or C ?")

        choice = console.ReadLine()

        If choice = "F" Then

            outputTemp = converttoC(inputTemp)

            console.WriteLine(outputTemp & " degrees celsius")

        ElseIf choice = "C" Then

            outputTemp = converttoF(inputTemp)

            console.WriteLine(outputTemp & " degrees fahrenheit")

​

        Else 

            console.WriteLine("Invalid Choice")

        End If

    End Sub

    Private Function convertToC (ByVal F As single)As single

        Dim C As single 

        C = 5/9 * (f -32)

        return C

    End Function

    Private Function convertToF (ByVal C As single)As single

        Dim F As single 

        F = 9/5 * C + 32

        return F

    End Function

End Module