Console.WriteLine("F{0} = C{1}", 100, TemperatureToCelsius(100))
Console.WriteLine("C{0} = F{1}", 100, TemperatureToFahrenheit(100))
Private Function TemperatureToCelsius(ByVal fahrenheit As Double) As Double
Return (fahrenheit - 32) * 5 / 9
Private Function TemperatureToFahrenheit(ByVal celsius As Double) As Double
Return celsius * 9 / 5 + 32