tarih formatı koduyle ilgili

sayın hocalarım elimdeki programda aşaüıda verdiğim kodlar var
kyt("PM 1") = yenipm
kyt("PM 2") = Format(DateAdd("m", 6, yenipm), "dd-mmm-yy")
kyt("PM 3") = Format(DateAdd("m", 12, yenipm), "dd-mmm-yy")
kyt("PM 4") = Format(DateAdd("m", 18, yenipm), "dd-mmm-yy")
kyt("PM 5") = Format(DateAdd("m", 24, yenipm), "dd-mmm-yy")
kyt("PM 6") = Format(DateAdd("m", 30, yenipm), "dd-mmm-yy")
kyt("PM 7") = Format(DateAdd("m", 36, yenipm), "dd-mmm-yy")
kyt("PM 8") = Format(DateAdd("m", 42, yenipm), "dd-mmm-yy")

burda pm1_yeni pm diyoruz diğerlerinde tarih formatını eklenmiş şekilde. pm2 ve sonrası mesela 12-kas-11 formatında gözüküyor listede fakat pm1 12.11.11 şeklinde gözüküyor bunuda dd-mmm-yy formatına getirmek için kyt("PM 1") = yenipm in sonuna ne eklemem lazım. şu şekilde yaptım hata veriyor.
kyt("PM 1") = Format(DateAdd("m", 0, yenipm), "dd-mmm-yy")
bu kodla hata alıyorum. yardımlarınızı bekliyorum teşkekkrüler şimdiden.

Sadece
kyt("PM 1") = Format(Date, "dd-mmm-yy")
bu şekilde yazsanız?

hocam tşkler cvp için fakat yeni pm diye bir kutum var ve yeni pm ye yazdığım değer pm1 e geçiyor. yani şu kod kyt("PM 1") = yenipm işte bu kodun hem aynı kalması hemde formatının istediğim gibi olmasnı sağlamaya çalışıyorum bunla ilgili yardımınız olursa sevinirim tşkler

Yeni pm kutusunun özelliklerine baktınız mı? Orada tarih formatları olacak. Deneyip size uygun olanı seçmeyi deneyebilirsiniz.

hayri hocam bu kodu siz hazırlamıştınız diye hatırlıyorum zaten. yeni pm kutusunun tarih formatı istdiğim gibi ama liste kutusuna geldiğinde diğer pmler 12-oca-11 gözükürken pm1 12.01.11 diye gözüküyor

Örneğe bakabilir miyim?