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


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

Private Sub Command1_Click()
    Const LOCALE_USER_DEFAULT = &H400
    Const DATE_SHORTDATE = &H1
    Dim lpDate As SYSTEMTIME
    Dim lpFormat As String
    Dim lpSeparator As String
    Dim cchDate As Long
    Dim lpDateStr As String
    Dim rc As Long

    lpDate.wMonth =  7 
    lpDate.wDay =  1 
    lpDate.wYear =  2004 
    lpFormat = vbNullString
    lpDateStr = String( 254 , Chr( 0 ))
    cchDate =  0 

    rc = GetDateFormat(LOCALE_USER_DEFAULT,  0 , lpDate, lpFormat, lpDateStr, cchDate)
    lpDateStr = String(rc, Chr( 0 ))
    rc = GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, lpDate, lpFormat, lpDateStr, rc)

    Debug.Print Left(lpDateStr, rc -  1 )
End Sub

Option Explicit
Private Const LOCALE_USER_DEFAULT = &H400
Private Const LOCALE_SSHORTDATE = &H1F         '  short date format string
 
Private Const LOCALE_SDATE = &H1D         '  date separator
 

Private Declare Function GetLocaleInfo& Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long)


Private Function GetLocaleDateFormat()
    Dim lpFormat As String
    Dim cchDate As Long
    Dim rc As Long

    cchDate =  0 
    lpFormat = String( 254 , Chr( 0 ))
    
    rc = GetLocaleInfo&(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, lpFormat, cchDate)
    rc = GetLocaleInfo&(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, lpFormat, rc)
    lpFormat = Left(lpFormat, rc -  1 )
    GetLocaleDateFormat = lpFormat
End Function

Private Function GetLocaleDateSeparator()
    Dim lpFormat As String
    Dim cchDate As Long
    Dim rc As Long

    cchDate =  0 
    lpFormat = String( 254 , Chr( 0 ))
    
    rc = GetLocaleInfo&(LOCALE_USER_DEFAULT, LOCALE_SDATE, lpFormat, cchDate)
    rc = GetLocaleInfo&(LOCALE_USER_DEFAULT, LOCALE_SDATE, lpFormat, rc)
    lpFormat = Left(lpFormat, rc -  1 )
    GetLocaleDateSeparator = lpFormat
End Function


Private Sub Command1_Click()
    Dim lpFormat As String
    Dim lpSeparator As String
    Dim sDate As String

    lpFormat = GetLocaleDateFormat
    lpSeparator = GetLocaleDateSeparator

    Debug.Print lpFormat, lpSeparator
End Sub