Public Function DecToHex(ByVal X$) As String
    Dim c As Variant, d As Double
    DecToHex = ""
    Do
        c = X Mod 16 '
        d = Fix(X / 16)
        Select Case c
            Case 10
                c = "A"
            Case 11
                c = "B"
            Case 12
                c = "C"
            Case 13
                c = "D"
            Case 14
                c = "E"
            Case 15
                c = "F"
        End Select
        DecToHex = DecToHex + CStr(c)
        X = d
    Loop Until (c) = 0
    DecToHex = StrReverse(Left(DecToHex, Len(DecToHex) - 1))
End Function

#include<iostream>
#include<string>
#include<sstream>
#include<exception>
#pragma warning(disable:4290)

using namespace std;

void Caractere(int iNombre,string &sHexa)throw(exception);

int main()
{
        int Nombre = 1528;
        int iTotalt = Nombre/16;
        int iModulo = Nombre%16;

        string sHexa;
        string sChaineTempo;

        while(iTotalt > 0)
        {
                try
                {
                        Caractere(iModulo,sHexa);
                }
                catch (exception e)
                {
                        cout << e.what() << endl;
                }

                iModulo = iTotalt%16;
                iTotalt = iTotalt/16;

        }

        cout << "La chaine final est: " << sHexa << endl;
}

void Caractere(int iNombre,string &sHexa)throw(exception)
{
        cout << "Nombre recue: " << iNombre << endl;
        string sTempo;

        if(iNombre < 0)
        {
                throw exception("**Nombre Invalide en Hexadecimal**");
        }
        switch(iNombre)
        {
        case 10:
                sHexa += "A";
                break;
        case 11:
                sHexa += "B";
                break;
        case 12:
                sHexa += "C";
                break;
        case 13:
                sHexa += "D";
                break;
        case 14:
                sHexa += "E";
                break;
        case 15:
                sHexa += "F";
                break;
        default:

                //Transforme un INT en STRING
                stringstream ss;
                ss << iNombre;
                ss >> sTempo;

                sHexa += sTempo;
        }
}