I have this function which I am using to return a date in French format:

    ' Return the date in French format
    ' expD1 Date
    Public Shared Function GetDateTime(ByVal tdDateTime As DateTime) As DateTime
        Return Format(tdDateTime, "dd/MM/yyyy HH:mm:ss")
    End Function

What I don't understand, is that I am ending up with:

23/01/2005 6:00:11 PM

instead of

23/01/2005 18:00:11