Imports System

Imports System.Globalization

​

Public Module Module1

​

    Public Sub Main()

        Dim dateString, format As String

        Dim result As Date

        Dim provider As CultureInfo = CultureInfo.InvariantCulture

        'Parse date-only value with invariant culture.

        dateString = "15/06/2008 08:30"

        format = "g"

        provider = New CultureInfo("fr-FR")

        Try

            result = Date.ParseExact(dateString, format, provider)

            Console.WriteLine("{0} converts to {1}.", dateString, result.ToString())

        Catch e As FormatException

            Console.WriteLine("{0} is not in the correct format.", dateString)

        End Try

    End Sub

End Module

​