Lexus:
Para sumar los valores de los campos del formulario agregale la función CInt() a cada campo. Es decir, te quedaría una cosa así:
Dim Suma
Suma= CInt(campo1) + CInt(campo2) + CInt(campo3) + CInt(campo4)
Para la resta sería lo mismo sólo que cambiando los signos :)
Saludos y suerte
