Oi Pessoal,

Estou introduzindo alguns dados de um formulário do Excel para o Access.
Porém possuo um registro que quando passo para o Access ele vai arredondado.
O que estou fazendo errado.

Private Sub EnviarRegistro()
On Error GoTo TratarErro
    
    Dim TabName     As String:          TabName = "WF_M002_Solicitações"
    Dim DB          As DAO.Database:    Set DB = DAO.OpenDatabase(DirDB, False, False, "MS ACCESS;PWD=" & PwdDB)
    Dim DBTab       As DAO.Recordset:   Set DBTab = DB.OpenRecordset(TabName, dbOpenDynaset)
    
    
    With DBTab 
        .AddNew
            !ValorLancamento = Me.VALOR_OM.caption 'Ja tentei colocar Val,CCur,CDec,FormatNumber,FormatCurrency e outros... HELPPPP
            .Update
    End With

Saida:
    Close
    Set DBTab = Nothing
    Set DB = Nothing
    MsgBox "Processo Conluído", vbInformation, TitleWork
    Exit Sub
    
TratarErro:
     MsgBox "Erro: " & Err.Number & Chr(13) & Chr(13) & _
            Err.Description, vbCritical + vbOKOnly, TitleWork
    Close
    Set DBTab = Nothing
    Set DB = Nothing
    MsgBox "O processo não foi concluído!", vbExclamation, "Erro Nº: " & Err.Number & " | " & TitleWork
End Sub

P.s: Me.VALOR_OM.caption é uma Label

O Resultado no Access fica igual a imagem em anexo