[VB6] - Problema con il format di stringhe

[vtr2009]

Salve ragazzi, ciao moderatori.

Ho un problema su questo codice:

   Cs(2) = "39972" : Cs(2) = Format(Cs(2), "00000")             'sempre a 5 cifre
   Ncif = String(Len(Cs(2)), "0")               'costruisce una stringa per il format successivo
   appert = LCase(Hex(InvString(Cs(2))))
   InvTempoHex = Format(appert, "00000") 'Hex dell'inverso della stringa

la funzione InvertString e:

Public Function InvString(c As String) As String
  InvString = StrReverse(c)
End Function

il risultato di dovrebbe essere:
InvTempoHex = "6d59"

e invece è:
InvTempoHex = "6000000000000000000000000000000000000000000000000 00000000000
"


se scrivo:

   Cs(2) = "39972" : Cs(2) = Format(Cs(2), "00000")             'sempre a 5 cifre
   Ncif = String(Len(Cs(2)), "0")               'costruisce una stringa per il format successivo
   appert = LCase(Hex(InvString(Cs(2))))
   InvTempoHex = appert     'Hex dell'inverso della stringa

tutto funziona correttamente


mi date una mano a capire dove sbaglio

grazieee