Por favor amigo, não cometa Floods em seus Posts, utilize o Botão Editar ok ? 
Amigo, faça o seguinte:
Primeiro Crie um CommandButton
Resumo:
Este código pegará o formato de data que você colocar nas Configurações Regionais. Isto significa que você poderá mudar para os 14 tipos que existem que o seu Projeto irá capturar.
Vamos ao código:
Option Explicit
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 Const LOCALE_USER_DEFAULT = &H400
Private Const LOCALE_SSHORTDATE = &H1F
Private Function GetDateFormat() As String
Dim lBuffLen As Long
Dim sBuffer As String
Dim lResult As Long
Dim sDateFormat As String
lBuffLen = 128
sBuffer = String$(lBuffLen, vbNullChar)
lResult = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sBuffer, lBuffLen)
If lResult > 0 Then
sDateFormat = Left$(sBuffer, lResult - 1)
If InStr(1, sDateFormat, "YYYY", vbTextCompare) = 0 Then
Replace sDateFormat, "YY", "YYYY"
End If
GetDateFormat = sDateFormat
Else
GetDateFormat = "DD/MM/YYYY"
End If
Exit Function
End Function
Private Sub Command1_Click()
Dim strFormat As String
strFormat = GetDateFormat
MsgBox strFormat
End Sub
