سوتی که شاخ و دم نداره عزیز دل برادر.

شما این کد رو 

Set MessageBar = CommandBars.MessageBar


به این کد تغییر بدید

Set MessageBar = CommandBar.MessageBar


موفق باشید ./