Dim inputTemp , outputTemp As Single
Console.WriteLine("Enter an input temperature: ")
inputTemp = Console.ReadLine()
Console.WriteLine("Was that in (F)ahrenheit or (C)elsius? (F or C): ")
tempType = Console.ReadLine()
outputTemp = convertToFahrenheit(inputTemp)
Console.WriteLine("This Temperature is " & outputTemp & " degrees Fahrenheit")
Else If tempType = "F" then
outputTemp = convertToCelcius(inputTemp)
Console.WriteLine("This Temperature is " & outputTemp & " degrees Celcius")
Private Function convertToCelcius(Byval inputTemp As Single) As Single
outputTemp = 5/9 * (inputTemp - 32)
Private Function convertToFahrenheit(Byval inputTemp As Single) As Single
outputTemp = 9/5 * inputTemp + 32