Using the c2f Procedure
At the start of the procedure:
c gets 38
At the end of the procedure:
s gets 100.4

‘ Sydney temp is 38
Call c2f(38, s)
Msgbox(“Temp is ”
     & s)
...
Private Sub c2f (c As Integer,
                 f As Double)
   f = 9 * c / 5 + 32
End Sub