userformda tarih formatında hata var duzeltemiyorum

[yahyasutem]

dosyayı kendime uyarlarım ancak birtürlü tarih kısmındaki formatı uyarlayamadım yardımcı olurmusunuz lütfen.

hata açıklaması;

compile error can't find project library

hatalı kod ;

Public Sub tarih_format()
If UCase(Get_locale(LOCALE_SSHORTDATE)) <> "DD/MM/YYYY" Then
Set_locale LOCALE_SSHORTDATE, "dd/MM/yyyy"
End If
s = Get_locale(LOCALE_SDATE)
If Get_locale(LOCALE_SDATE) <> "/" Then
Set_locale LOCALE_SDATE, "/"

 

[yahyasutem]

yokmu bu işin bir üstadı konu benim için önemli