Pessoal,
Bom dia.

Estou tentando criar uma macro que descarte os números após a vírgula sem descartar o inteiro.
Por exemplo:

886,54
114,46

Esperado:

886,00
114,00

Não dá para simplesmente ocultar as casas decimais porque eu preciso que a soma seja somente dos números inteiros.
Por exemplo:

886,54 + 114,46 = 1001,00

Esperado:

886,00 + 114,00 = 1000,00

Alguém pode me dar essa ajuda? (A soma não precisa fazer parte da macro)

Obs.: Tentei adaptar o código abaixo, mas sem sucesso.

Option Explicit
Function Inteiro(Valor As Range) As String

    Dim Texto As String
    Dim Numero() As String
    Dim i As Long
    
    Texto = Valor.Value
    Numero = Split(frase, " ", , vbTextCompare)
    
    For i = 0 To 1
        Inteiro = Inteiro & " " & Numero(i)
    Next
    
End Function