Private Function Degrees(ByVal Deg As Single, ByVal ConvertToFahrenheit As Boolean) As Single
If ConvertToFahrenheit = True Then
Degrees = (9 / 5) * Deg + 32
ElseIf ConvertToFahrenheit = False Then
Degrees = (5 / 9) * (Deg - 32)
End If
End Function