Function GetMyFavoriteColor() GetMyFavoriteColor = "Magenta" End FunctionSub mSub() MsgBox GetMyFavoriteColor()End Sub