Since you are really talking about formatting rather than UTC times, you should load the DT module and use some of the inbuilt functions to output your time.

Uses "DT"

Dim theCurrentTime =...