Public Function Dec2Hex(sDec$) As String
Const lBase& =  16 
Const lBlock& =  8 

ReDim alDec(Len(sDec) \ lBlock - IIf(Len(sDec) Mod lBlock =  0 ,  1 ,  0 )) As Long
Dim i&, l&, j&

    j =  0 : i =  1 
    l = Len(sDec) Mod lBlock
    If l =  0  Then l = lBlock
    
    Do
    
        alDec(j) = CLng(Mid$(sDec, i, l))
        i = i + l
        j = j +  1 
    
        l = lBlock
    
    Loop While i <= Len(sDec)

    j =  0 
    Do
        l =  0 
        For i = j To UBound(alDec)
            
            If l >  0  Then alDec(i) = alDec(i) + l * ( 10  ^ lBlock)
            l = alDec(i) Mod lBase
            alDec(i) = alDec(i) \ lBase
            
        Next
        Dec2Hex = IIf(l <  10 , CStr(l), Chr$(Asc("A") + l -  10 )) & Dec2Hex
    
        For i = j To UBound(alDec)
            If alDec(i) <>  0  Then Exit For
        Next
        j = i
    
    Loop Until j > UBound(alDec)

End Function