Imports System

Imports Microsoft.VisualBasic       

​

Public Module Module1

    Public Sub CalcCelcius(degF as decimal)

        Dim degC as decimal 

        degC = (degF - 32) * 9 / 5

        Console.Writeline(degF & "°F is approximately " & degC & "°C.")

    End Sub

    Public Sub Main()

        Dim degF as decimal 

        Console.Writeline("Temperature converter v1.0")

        Console.Writeline("-------------------" & vbCrLf)

        Console.Write("Please enter a temperature in degrees fahrenheit: ")

        degf = Console.Readline()

        CalcCelcius(degF)

    End Sub

End Module