تفضل التعديل
Dim x As String = "11/23/2017 4:16:42 AM" ' DateTime
Dim s() As String = x.Split ' Split
Dim list As New ArrayList ' ArrayList
list.AddRange(s(0).Split("/"c)) ' Date array
list.AddRange(s(1).Split(":"c)) ' Time array
list.Add(s(2)) ' AM , PM
MsgBox(list(5)) ' Message
Dim x As String = "11/23/2017 4:16:42 AM" ' DateTime
Dim s() As String = x.Split ' Split
Dim list As New ArrayList ' ArrayList
list.AddRange(s(0).Split("/"c)) ' Date array
list.AddRange(s(1).Split(":"c)) ' Time array
list.Add(s(2)) ' AM , PM
MsgBox(list(5)) ' Message
