Se impari a fare il debug del tuo codice lo scopri da solo e prima.
Non serve un forum per 'sti problemi...

Tra l'altro non capisco perchè esegui la seconda istruzione:
codice:
Cs(2) = "39972" : Cs(2) = Format(Cs(2), "00000")
che, almeno in questo caso, non serve assolutamente a nulla dato che il valore non cambia.

Stessa cosa vale anche per questa istruzione (che è quella che ti complica la vita)
codice:
InvTempoHex = Format(appert, Ncif)
dato che appert contiene già quello che ti serve.

Ciao

P.S. Imparare a fare il debug del codice è più importante ancora che imparare a programmare.