hola!
Utiliza la funcion FormatDateTime()
Function GetCurrentDate
' FormatDateTime formats Date in long date.
GetCurrentDate = FormatDateTime(Date, 1)
End Function
Recibe como argumentos la fecha a formatear y el tipo de formato que quieres, pueden ser:
0 (vbGeneralDate)
Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed.
1 (vbLongDate)
Display a date using the long date format specified in your computer's regional settings.
2 (vbShortDate)
Display a date using the short date format specified in your computer's regional settings.
3 (vbLongTime)
Display a time using the time format specified in your computer's regional settings.
4 (vbShortTime)
Display a time using the 24-hour format (hh:mm).
Espero te sirva