Dim DateString = "1999-03-26 01:24:16" As String
Dim DateTimeTicks As Long
Dim Date_Time() As String
Date_Time = Regex.Split(" ", DateString)
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"
DateTimeTicks = DateTime.DateTimeParse(Date_Time(0), Date_Time(1))