Dim d As Date = Date.ParseExact("Apr 1, 2018 5:18:16 AM PDT", "MMM d, yyyy h:m:s tt PDT",System.Globalization.CultureInfo.InvariantCulture)msgbox(d)