Imports System.Globalization
Dim enUS As New CultureInfo("en-US")
Dim inbound As String = "03.07.2019"
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)
Console.WriteLine("'{0}' is not in an acceptable format.", inbound)