Visual Basic - funcion que entregue los decimales

hola alguien sabe de aguna funcion que me ntregue los decimales de una valor es decir,

si tengo 13.45

y 45 es la parte decimal , hay alguna funcion que entregue los 45

No la tienes que crear tu.

Esta sería la función que tienes que crear:

Public function gs_decimales (valor as double) as string

Dim l_pos as long

l_pos = instr(valor, ",")

gs_decimales = right(valor, len(valor) - l_pos)

end function

Creo qu eseria mejor esta ya que la otra depende de la configuracion del simbolo decimal
function decimales(numero as double)
Dim z As String, z1 As String
z1 = Format$(numero)
z = Format$(Int(numero))
z1 = Mid$(z1, Len(z) + 2)
if z1="" then decimales=0 else decimales=val(z1)
end if
end function