How about
CommandBars.ExecuteMso "MinimizeRibbon"