Public Shared Function FormatFrenchDate(ByVal dat As Date) As String
   Dim dtf As DateTimeFormatInfo = New CultureInfo("fr-FR", False).DateTimeFormat
   Return dat.ToString(dtf.ShortDatePattern, dtf)
End Function

Trouver ici