TimeOfDayプロパティでは、DateTimeの表す日時のうち、時刻の部分(午前0時ちょうどからの経過時間)のみをTimeSpanで取得することが出来ます。

DateTime/DateTimeOffset.TimeOfDayプロパティで時刻のみを取得する
Imports System

Class Sample
  Shared Sub Main()
    Dim dt As DateTime = DateTime.Now ' 現在の日時を取得

    Dim timeOfDt As TimeSpan = dt.TimeOfDay ' 時刻部分のみをTimeSpanとして取得

    Console.WriteLine(timeOfDt)

    Dim dto As DateTimeOffset = DateTimeOffset.Now ' 現在の日時を取得

    Dim timeOfDto As TimeSpan = dto.TimeOfDay ' 時刻部分のみをTimeSpanとして取得

    Console.WriteLine(timeOfDto)
  End Sub
End Class
実行結果例
15:00:30.1230000
15:00:30.1230000