Function CelsiusToFahrenheit(ByVal value As Single) As Single CelsiusToFahrenheit = value * 1.8 + 32End Function
Function FahrenheitToCelsius(ByVal value As Single) As Single FahrenheitToCelsius = (value - 32) / 1.8End Function