Dim dt As New DataTable()
Dim dr As DataRow = Nothing
Dim spt As String = "10:00am-01:00pm,02:00am-04:00pm"
Dim splitdata As String()
Dim splitdata2 As String()
dt.Columns.Add(New DataColumn("TimeFrom", GetType(String)))
dt.Columns.Add(New DataColumn("TimeTo", GetType(String)))
splitdata = spt.Split(",")
For i As Integer = 0 To splitdata.Length - 1
splitdata2 = splitdata(i).Split("-")
dr = dt.NewRow()
dr("TimeFrom") = splitdata2(0).ToString()
dr("TimeTo") = splitdata2(1).ToString()
dt.Rows.Add(dr)
Next