سؤال في date format

السلام عليكم

على هذا النحو.بحيث تجعل قيمة الشهر ثلاثة حروف كبيرة MMM

 Dim d As DateTime = Date.Now
Me.TextBox3.Text = Format(d, "yyyy-dd-MMM")

بالتوفيق إن شاء الله.

شكرا اخي ! بارك الله فيك