DegreeC2F + DegreeF2C

Function DegreeC2F(CDegree)
DegreeC2F= CelsiusToFahrenheit(CDegree)
End Function
Function DegreeF2C(FDegree)
DegreeF2C = FahrenheitToCelsius(FDegree)
End Function

Function CelsiusToFahrenheit(DegVal)
' convert from Celsius to Fahrenheit degrees
CelsiusToFahrenheit = DegVal * 1.8 + 32
End Function
Function FahrenheitToCelsius(DegVal)
' convert from Fahrenheit to Celsius degrees
FahrenheitToCelsius = (DegVal - 32) / 1.8
End Function