Hola espero que te sirva...
Código:
Private Sub cmdsumar_Click()
txttotal.Text = Val(txtsalud.Text) + Val(txtarriendo.Text) + Val(txtedu.Text)
End Sub
y para que quede el total en moneda ...
Código:
Private Sub cmdsumar_Click()
txttotal.Text = Val(txtsalud.Text) + Val(txtarriendo.Text) + Val(txtedu.Text)
txttotal.Text = Format(txttotal.Text, "$#,##0")
End Sub
saludos, desde CHILE...