Function CtoF(Centigrade) CtoF = Centigrade * 9 / 5 + 32 End Function Sub Main() MsgBox CtoF(100) End Sub