Getting the Regional Short Date Format

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long


Public Function getRegionalDateFormat() As String
  Dim strSecName As String
  Dim strKeyName As String
  Dim varSuccess As Variant
  Dim strRetDate As String
  Dim strRetSep As String
  Dim strChar As String * 1
  
  strSecName = "Intl"
  strKeyName = "sShortDate"
  strRetDate = String$(11, 0)
  varSuccess = GetProfileString(strSecName, strKeyName, "", strRetDate, Len(strRetDate))
  strSecName = "Intl"
  strKeyName = "sDate"
  strRetSep = String$(2, 0)
  varSuccess = GetProfileString(strSecName, strKeyName, "", strRetSep, Len(strRetSep))
  strRetSep = Left$(strRetSep, 1)
  strChar = UCase$(Left$(strRetDate, 1))
  strRetDate = Left(strRetDate, Len(strRetDate) - 1)
  getRegionalDateFormat = strRetDate
End Function