[Resolvido]Valor por exensto não funciona

Boa tarde a todos.
Estou desenvolvendo uma aplicação onde é necessário o valor em reais por extenso, na guia 3 no primeiro vlor não roda.
A rotina é igual à todos. Já troquei nome e nada
Poderiam ver o que está errado.
A linha respectiva está comentada.
Obrigado

https://www.dropbox.com/s/ii8h1di4xb66tq3/Pagamento.accdb?dl=0

boa tarde amigo Mylton, verifique se é assim que Pretende ! Receita federal Imposto retido primeiro Valor . " Valor por Extenso "
aguardo retorno !

        abraço Nogaro !

A letra de onde vc mexeu ficou maiscula?
Aliás onde errei?
rs

olá Mylton, sim as letras ficam assim isto é referente ao código do modulo !

Tudo bem.
Só precisava ententender. ..
1 onde errei?
2 pq as outras caixas estão em Minúsculas e essa em maiúscula?
Obrigado

amigo Mylton, coloquei Primeira Letra Maiúscula.

Ok.
Mas eu errei onde no código?

compare o seu código ao perder foco e o código que eu coloquei vai ver a diferença    

Dim sRet As String
   Dim dTexto_Valor_Carne_Leao As Double
   If IsNull(Me.Texto_Valor_Carne_Leao) Then
       MsgBox "Digite um número no campo", vbExclamation + _
       vbOKOnly + vbDefaultButton1
       Exit Sub
   Else
   dTexto_Valor_Carne_Leao = Me.Texto_Valor_Carne_Leao
   End If
   sRet = Extenso(dTexto_Valor_Carne_Leao, "Reais", "Real")

'  Me.TxtVPE5 = sRet

Ok
Vou ver.
Muito obrigado.
Boa semana.
Abs

boa noite amigo Mylton
fico feliz por ter ajudado

O Fórum agradece o retorno.

bons estudos

abraço Nogaro !