Hi,
I want to form a date format using international property.
The code I am using is -

Dim sDay As String
Dim sMonth As String
Dim sYear As String
Dim sSeparator As String
Dim sDateOrder As String
Dim sMonthChar As Long


With Application

sDay = .International(xlDayCode)
sMonth = .International(xlMonthCode)
sYear = .International(xlYearCode)
sSeparator = .International(xlDateSeparator)
sMonthChar = .International(xlMonthNameChars)

If (.International(xlDayLeadingZero)) Then

sDay = "dd"

Else

sDay = "d"

End If


If (.International(xl4DigitYears)) Then

sYear = "yyyy"

Else

sYear = "yy"

End If

Select Case .International(xlDateOrder)
Case Is = 0
sDateOrder = sMonth & sSeparator & sDay & sSeparator & sYear
'"month-day-year"
Case Is = 1
sDateOrder = sDay & sSeparator & sMonth & sSeparator & sYear
'"day-month-year"
Case Is = 2
sDateOrder = sYear & sSeparator & sMonth & sSeparator & sDay
'"year-month-day"
Case Else
sDateOrder = "dd/mm/yyyy"
End Select


End With

But here if the format for month is set as MMM I am unable to detect this. (e.g. 30-Jul-2013)

I never get the value for month format as MMM.

Can someone help?

Thanks