Private Sub TestFahrenheitToCelsius()
Debug.Print FahrenheitToCelsius(32)
If (FahrenheitToCelsius(32) <> 0) Then
Debug.Print "TestFahrenheitToCelsius: Failed"
Debug.Assert False
Else
Debug.Print "TestFahrenheitToCelsius: Passed"
End If
End Sub
Public Function FahrenheitToCelsius(ByVal TemperatureFahrenheit As Double) As Double
FahrenheitToCelsius = (5 / 9 * (TemperatureFahrenheit - 32))
End Function