加上星期的话可以这样
RibbonTabs("Other").Groups("功能组1").Items("标签1").text = "今天是: " & Date.Today() & " " & Format(Date.Today(),"dddd")