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