Visual Basic - Urgente Decimal a Hexadecimal

Saludos, estoy tratando de realizar un programa que convierta numeros decimales a hexadecimales, pero el comando "Hex" de visual basic convierte obviando los ceros. ¿alguien sabe de alguna forma de hacer esta conversión sin que se obvien los ceros? Les agradezco su colaboración......

Ami si me sirve

Dim X As Variant
Dim y As Variant
X = 1500
y = Hex(Format(X, "###,####"))