Similar to what you did for Reg17.Text, only use "Now" instead of "Date". Once you have the time in there you can add and subtract from it just like you did for your date.

Here's a generic example:

x = Format(Now, "h:mm:ss")