' 現在時刻は Now で取得できます。 

Dim dt As Date = Now



' ToString メソッド等を使えば、書式指定もできます。 

Dim tm As String = dt.ToString("yyyy/MM/dd HH:mm:ss.fffffff")

ちなみに、日付時刻ではなく、経過時間を扱いたい場合には、
As Date ではなく As TimeSpan を使います。
（今回は使う必要があるかどうかは別として）