Function FormatDateUser(Optional TipeFormat As Long = 0)
Const SReg = "HKEY_CURRENT_USER\Control Panel\International\"
Dim FormatDate$, SepDate$, FormatTime$, SepTime$, aSepUs(), SepDecimal$
With CreateObject("WScript.Shell")
    FormatDate = .RegRead(SReg & "sShortDate")
    SepDate = .RegRead(SReg & "sDate")
    FormatTime = .RegRead(SReg & "STimeFormat")
    SepTime = .RegRead(SReg & "STime")
    SepDecimal = .RegRead(SReg & "sDecimal")
    aSepUs = Array(".", "\", "/", "-", ":")
End With
For i = 0 To UBound(aSepUs)
    FormatDate = Replace(FormatDate, aSepUs(i), SepDate)
    FormatTime = Replace(FormatTime, aSepUs(i), SepTime)
Next
Select Case TipeFormat
Case 0: FormatDateUser = FormatDate & " " & FormatTime
Case 1: FormatDateUser = FormatDate
Case 2: FormatDateUser = FormatTime
Case 3: FormatDateUser = SepDecimal
Case 4: FormatDateUser = SepDate
End Select
End Function
Sub uttt()

Dim i&
For i = 0 To 4
Debug.Print FormatDateUser(i)
Next
End Sub