Imports System
Public Class Test
Public Shared Sub Main()
Dim s As String = "2019-07-09 23:31 PM"
Dim dt As DateTime = DateTime.ParseExact(s, "yyyy-MM-dd HH:mm tt", Nothing)
Console.Write(dt.ToString())
End Sub
End Class
' run:
'
' 07/09/2019 23:31:00
'