OK. La logica es esta: los valores que tenes en formato de moneda los tenes que convertir a formato numerico:
Código:
valor1 = Format(txtValor1.Text, "##0.00")
valor2 = Format(txtValor2.Text, "##0.00")
Luego teniendolos en formato numerico los sumas:
Código:
sumatoria = Val(valor1) + Val(valor2)
Despues, el resultado de la suma lo convertis a formato de moneda y lo colocas en el text en el que mostras el total:
Código:
txtTotal.Text = Format(sumatoria, "$#,##0.00")
Espero te sirva
Saludos
PD: En cuanto al tipo de datos de las variables podes declararlas como
String:
Código:
Dim valor1, valor2, sumatoria As String