Imports System

Imports System.Globalization

Public Module Module1

    Public Sub Main()

        Dim enUS As New CultureInfo("en-US")

        Dim inbound As String = "03.07.2019"

        Dim outbound As DateTime

        If DateTime.TryParseExact(inbound, "MM.dd.yyyy", enUS, DateTimeStyles.None, outbound) Then

            Console.WriteLine("'{0}' is formated from: {1}", outbound.ToString("yyyy/dd/MM"), inbound)

        Else

            Console.WriteLine("'{0}' is not in an acceptable format.", inbound)

        End If

    End Sub

End Module