Dim existing = sd.getTimesValues(emailid, day, sesh, includeEnquiryOnly)
Dim dictionary As Dictionary(Of String, DaysAndTimes.timedata) = Nothing
Dim sorted As List(Of KeyValuePair(Of String, DaysAndTimes.timedata)) = (From kv In existing Order By kv.Value).ToList()
For Each kv As KeyValuePair(Of String, DaysAndTimes.timedata) In sorted
   dictionary.Add(kv.Key, kv.Value)
Next

Dim dictionary = existing.OrderBy(Function(y) y.Value).ToDictionary(Function(x) x.Key, Function(y) y.Value)