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