Sumar en un campo

Los campos access se diseñan con un formato de tipo de datos, por lo que en el momento en el que incorporas en un campo diseñado como numérico cualquier carácter alfanumérico dan error.
La solución sería incorporar el dato a través de un cuadro de texto que en el evento después de actualizar realizaría el cálculo de la suma.
He creado un código que suma un cuadro de texto denominado qCalculo tras ser actualizado:
Private Sub qCalculo_AfterUpdate()
Dim Largo As Integer
Dim Pasos As Integer
Dim C As Integer
Dim E As Integer
Dim PosSigno(10) As Integer
Largo = Len(Me.qCalculo)
Dim SumaNumero As Double
C = 0
E = 0
For Pasos = 1 To Largo
If Mid(Me.qCalculo, Pasos, 1) = "+" Then
    C = C + 1
    PosSigno(C) = Pasos - 1
End If
Next Pasos
PosSigno(C + 1) = 40
For E = 1 To C
    SumaNumero = SumaNumero + Val(Mid(Me.qCalculo, PosSigno(E) + 2, PosSigno(E + 1) - PosSigno(E) - 1))
Next
MsgBox SumaNumero + Mid(Me.qCalculo, 1, PosSigno(1))
End Sub
Lo que hace el código es buscar la posición de los signos MÁS, y después sumar los números por separado cortando el texto según las posiciones de los signos.
Seguro que se puede simplificar pero no se me ocurre otra solución.
Una aperta.