Private Type SYSTEMTIME
    wYear           As Integer
    wMonth          As Integer
    wDayOfWeek      As Integer
    wDay            As Integer
    wHour           As Integer
    wMinute         As Integer
    wSecond         As Integer
    wMilliseconds   As Integer
End Type

Private Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" _
                (ByVal Locale As Long, ByVal dwFlags As Long, lpSystemTime As SYSTEMTIME, _
                 ByVal lpFormat As String, ByVal lpDateStr As String, _
                 ByVal cchDate As Long) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Private Declare Function VariantTimeToSystemTime Lib "oleaut32" (ByVal vTime As Date, lpSystemTime As SYSTEMTIME) As Long
'https://msdn.microsoft.com/ru-ru/library/windows/desktop/dd318693(v=vs.85).aspx
Public Const LANG_DEFAULT = &H400
Public Const LANG_ENGLISH_US = &H409
Public Const LANG_RUSSIAN = &H419

Public Function DateFormatEx(dtExpression As Date, sFormat As String, Optional ByVal lLocale As Long = 0) As String
Dim st As SYSTEMTIME
Dim lngRetVal As Long, lngBufSize As Long
On Error Resume Next
    If lLocale = 0 Then lLocale = GetUserDefaultLCID
    If VariantTimeToSystemTime(dtExpression, st) = 1 Then
        lngBufSize = GetDateFormat(lLocale, 0&, st, sFormat, 0&, 0&)
            If lngBufSize > 0 Then
                DateFormatEx = Space$(lngBufSize - 1)
                GetDateFormat lLocale, 0&, st, sFormat, DateFormatEx, lngBufSize
            End If
    End If
End Function

Private Sub Test()
    Debug.Print DateFormatEx(Date, "dd.MMM.yyyy", LANG_ENGLISH_US)
    Debug.Print DateFormatEx(Date, "dd.MMM.yyyy")
    Debug.Print DateFormatEx(Date, "MMM.dd.yyyy", LANG_ENGLISH_US)
    Debug.Print DateFormatEx(Date, "ddd dd.MM.yyyy")
    Debug.Print DateFormatEx(Date, "ddd dd.MM.yyyy", LANG_ENGLISH_US)
End Sub

'13.Apr.2016
'13.апр.2016
'Apr.13.2016
'Ср 13.04.2016
'Wed 13.04.2016