Невероятно медленное преобразование даты в час / минуту / секунду

Мне нужна дата, циклически конвертируемая в ее составляющие (час, минута, секунда). Следующий код делает это довольно хорошо.

Dim time_hour As Integer
Dim time_minute As Integer
Dim time_second As Integer
Dim time_ms As Integer
Dim storedNow As Date

storedNow = Now
time_hour = storedNow.Hour
time_minute = storedNow.Minute
time_second = storedNow.Second
time_ms = storedNow.Millisecond

Однако я обнаружил, что это проблема производительности. Я изучил исходный код с помощью профилировщика, и преобразование Now в его компоненты кажется невероятно медленным. Есть ли быстрый способ разобрать текущее время на составные части?