I have this code below that is great and drops the chosen date from a popup Calendar into the TextBox on my form. My only problem is that it show in an American format how can I change it so that its showing as "dd-mmm-yy"?
Option Explicit Private Sub Calendar1_DblClick() usrfrmReport.txtFormDate = usrFrmCalendar.Calendar1.Value Unload Me End SubPrivate Sub UserForm_Initialize() 'Change the Calendar date to todays date usrFrmCalendar.Calendar1.Value = Date End Sub