Use the following code to convert from Centigrade to Fahrenheit and vice versa:
Function CentToFaren(ByVal cent As Double) As Double
Return cent / 0.55555555556 + 32
End Function
Function FarenToCent(ByVal faren As Double) As Double
Return (faren - 32) * 0.55555555556
End Function