Pessoal consegui um exemplo que deu certo que segue baixo:

Private Sub TextBox1_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox3_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox4_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox5_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Só um adendo;
se tiver valores "quebrados" (decimais), a função VAL provavelmente não irá reconhecer, convertendo somente os valores inteiros.
Então para isso deverá utilizar outra função de converção tipo Cdbl ou Cdec

Reinaldo tudo bem, fiz a substituição da função VAL pelo Cdbl, não deu certo. Pode verificar onde estou errando?

Segue o código:

Private Sub TextBox_Diaria_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub

Private Sub TextBox_Alimentacao_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub

Private Sub TextBox_Hotel_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub
Private Sub TextBox_Pedagio_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub

Private Sub TextBox_Combustivel_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub

Private Sub TextBox_Gasto_Extra_AfterUpdate()
    TextBox_Total_Despesas.Value = CDbl(TextBox_Diaria.Value) + CDbl(TextBox_Alimentacao.Value) + CDbl(TextBox_Hotel.Value) + CDbl(TextBox_Pedagio.Value) + CDbl(TextBox_Combustivel.Value) + CDbl(TextBox_Gasto_Extra.Value)
End Sub

silva_jmp

Boa tarde!!

Tente...

& "+" &

Alexandre, obrigado por me ajudar, mas não deu certo no Textbox_Despesas fica aparecendo a concatenação "10+10+10..."

silva_jmp

Boa tarde!!!

E você quer...????....30 ou ?????

Att

Alexandre no textBox_total_Despesas esta visualizando desta forma "10+10+10...", e não a soma em si "30,00"

silva_jmp

Se estiver sempre utilizando valores Inteiros, o uso do Val não terá nenhuma alteração.Somente para valores "quebrados". Utilizando Cdbl, e não se em uma das textbox não tiver valor (for "") a soma não ira funcionar ou mesmo poderá gerar algum erro, para isso é necessario tratar o conteudo (tipo if txt...<>"" thne txt...=txt... else txt...=0).
Qq coisa mande seu exemplo para podermos avaliar.

Reinaldo, obrigado pela sugestão, da uma olhada no exemplo, mudei de VAL par CDBL e não deu certo.

silva_jmp

Veja no anexo se atende

Reinaldo, no arquivo modelo deu certo, e adaptei no meu projeto, mas esta aparecendo um mensagem "Erro de automação - Erro não especificado"

Vou enviar meu projeto em anexo, você pode dar uma olha no projeto inteiro, pois estão aparecendo alguns problemas e duvida de como fazer algumas formatações:
Pendências com duvidas:
1) Trocar os txtdata no frmCadastroStudents, txtDataInicial e txtDataFinal no frmResumo por DTPiker, lembrando que estas datas vão para o Excel, portanto sua formatação terá que ser reconhecida por qualquer formula.
2) No txtPercorrido tivesse a subtração do txtKmFinal pelo txtKmInicial, onde o txtPercorrido esteja travado para nenhuma alteração;
3) No txtTDespesas tivesse a soma do txtDiaria+txtAlimentacao+txtHotel+txtPedagio+txtCombustivel+txtGExtra, onde a soma e automática e sua formatação 0.00;
4) No txtSaldo tivesse a subtração do txtDesposito-txtDespesas, onde a subtração terá que ser automática e sua formatação 0.00;
5) No frmResumo ListView, quando procuro pelo período desejado e peço para filtrar não esta aparecendo o cabeçalho e os valores, mas quando clico no formulário aparece o cabeçalho e se clicar novamente vai se repetindo o cabeçalho.
6) Os itens do ListView são Data, Total de Depósitos, Total de Despesas e Saldo e nos labeis abaixo são as somatórias dos mesmos.

silva_jmp

Segue com algumas modificações

Reinaldo, parabens e isso mesmo que eu quero, mas esta dando um erro frmResumo.
Quando cliquei no btResumo esta aparecendo esta mensagem "Não foi possível carregar um objeto porque ele não está(ão) disponível(is) nesta máquina.
Após clico no Ok da mensagem ela abre frmResumo, seleciono o período e clico em filtrar esta aparecendo um erro em tempo de execução '424': O Objeto é obrigatório, peço para depurar esta mostrando na linha .View = lvwReport em amarelo.

Private Sub headlstv()
With lstvFiltro 'Deu erro nesta Linha
  .View = lvwReport
  .FullRowSelect = True
  .Gridlines = True
  .ColumnHeaders.Add Text:="Data", Width:=100
  .ColumnHeaders.Add Text:="Total de Deposito", Width:=100
  .ColumnHeaders.Add Text:="Total de Despesas", Width:=100
  .ColumnHeaders.Add Text:="Saldo", Width:=100
  .Font.Size = 9
End With

End Sub

Quando tento colocar o ferramenta listview novamente no frmResumo esta aparecendo a mensagem "Não foi possível concluir a operação devido ao erro 800a9cf1.

silva_jmp

Provavelmente uma das bibliotecas não está sendoencontrada. De uma olhada em referencias e veja se algo aparece como ausente.