GetTemperature_Incelsius function with parameters Farenheit_value return temperature in the celsius. This function is using formula C = 5/9 (F-32), where C is temperature in Celsius and F is temperature in Fahrenheit.

Code snippet is below:

Private Function GetTemperature_Incelsius(ByVal Farenheit_value As Double)

Dim Temp_Incelsius As Double

Temp_Incelsius = (5 / 9) * (Farenheit_value - 32)

Return Temp_Incelsius

End Function