Bom dia!!
Tente algo como..

totacumulado.Caption = Format(Val (totacumulado.Caption) + Val (Label3.Caption),"R $" & "#, # # 0.00")

Mas não soma!

Em que evento vc acrescentou o codigo?

Boom dia!!

E se possível poste seu anexo (COMPACTADO).

Att

Tenho um form que possui dois LIstBox, ao relacionar o primeiro os valores acumulados são alimentados no Label (Label3.Caption). Então tenho um outro botão que chama a rotina abaixo, onde acumulará os valores de cada custo de grade alimentando os dados no segundo listbox.

O que preciso é que o resultado do acumulado seja apresentado no label (totacumulado.Caption)

Private Sub CommandButton1_Click()
ListBox2.AddItem cmbxGrade.Value
ListBox2.List(ListBox2.ListCount - 1, 1) = cont.Caption
ListBox2.List(ListBox2.ListCount - 1, 2) = Format(Label3.Caption, "R$ " & "#,##0.00")

'totacumulado.Caption = Val(totacumulado.Caption) + Val(Label3.Caption)
totacumulado.Caption = Format(Val(totacumulado.Caption) + Val(Label3.Caption), "R$ " & "#,##0.00")

End Sub

Chook,
poste seu arquivo (compactado), pois assim fica facil a visualização do problema

Bom dia!!
Tente assim.

totacumulado.Caption = Format(Val(Mid(totacumulado.Caption,Instr(totacumulado.Caption,"$")+1)) + Val(Mid(Label3.Caption,Instr(Label3.Caption,"$")+1)),"R $" & "#, # # 0.00")

Perfeito!! Valeu!

Bom dia!!
Que bom que tendeu, marque o tópico como resolvido.

Ao lado de [CITAR], parte de cima do lado superior direito.

Att