با سلام
این کد برای تبدیل میلادی به شمسی
Dim F As New Globalization.PersianCalendar

MsgBox(DateSerial(F.GetYear(Now), F.GetMonth(Now), F.GetDayOfMonth(Now)))

برای قمری هم از کلاس Hijri استفاده کنید و طریقه استفادشم دقیقا مثل شمسی