Imports System

​

Public Module Module1

    Public Sub Main()

    Dim convertedDate1 As Date = Date.Parse("2014-08-14 16:10:03 ")

    Dim convertedDate2 As Date = Date.Parse("2014-08-14 16:24:28")

    Dim timePeriod As TimeSpan

    timePeriod = convertedDate2.TimeOfDay - convertedDate1.TimeOfDay

    Console.WriteLine(timePeriod)

    End Sub

End Module