Imports System
Public Class Program
Public Shared Sub Main()
Dim str = "05-16-2023"
Dim dt1 As Object = DateTime.ParseExact(str, "MM-dd-yyyy", System.Globalization.CultureInfo.InvariantCulture)
Console.WriteLine(dt1)
Dim dt2 = DateTime.ParseExact(str, "MM-dd-yyyy", System.Globalization.CultureInfo.InvariantCulture)
Console.WriteLine(dt1)
End Sub
End Class
' run:
'
' 5/16/2023 12:00:00 AM
' 5/16/2023 12:00:00 AM
'