Excel função

Function DecemHex(x As Double) As String

Dim Result, i, Temp As Integer

Result = Hex(Int(x)) & "."

x = x - Int(x)

For i = 1 To 16

x = x * 16

Result = Result & Hex(x)

x = x - Int(x)

Next i

DecemHex = Result

End Function

então funciona ela funciona so q os resultados estão dando tipo o valor em hexadecimal e um monte de zero

obrigado a todos

a eu sei q tem essa função no Excel mais to tentando fazer esta ai se alguém saber como da pra ver os códigos das funções do Excel agradeço pois posso tirar uma base de la vlw pessoal