Проблема с форматом даты. Как определить формат даты на машине?

Declare Function GetDateFormat Lib "kernel32.dll" Alias "GetDateFormatA" ( _
     ByVal Locale As Long, _
     ByVal dwFlags As Long, _
     lpDate As SYSTEMTIME, _
     ByVal lpFormat As String, _
     ByVal lpDateStr As String, _
     ByVal cchDate As Long) As Long

' в модуль
Option Explicit

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

Public Const LOCALE_SYSTEM_DEFAULT = &H400
Public Const LOCALE_USER_DEFAULT = &H800

Public Const LOCALE_SSHORTDATE As Long = &H1F
Public Const LOCALE_STIMEFORMAT As Long = &H1003


Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, lpDate As SYSTEMTIME, ByVal lpFormat As String, ByVal lpDateStr As String, ByVal cchDate As Long) As Long

Public Sub DataLocal()
    ' 1 способ
    Dim lBuffSize As String
    Dim sBuffer As String
    Dim lRet As Long
    Dim sDateFormat As String
   
    lBuffSize = 256
    sBuffer = String$(lBuffSize, vbNullChar)
    lRet = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, sBuffer, lBuffSize)
    If lRet > 0 Then
       sDateFormat = Left$(sBuffer, lRet - 1)
       MsgBox sDateFormat
    End If
   
    ' 2 способ
    Dim Buffer As String, ST As SYSTEMTIME
    With ST
        .wDay = 6
        .wMonth = 8
        .wYear = 2000
    End With
    Buffer = String(255, 0)
    GetDateFormat LOCALE_SYSTEM_DEFAULT, 0, ST, vbNullString, Buffer, Len(Buffer)
    Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
    MsgBox Buffer

End Sub