Instead of using formulas, try using a loop to read all numbers, one by one,
and adding them as you input them. Try this:
Private Sub Command2_Click()
Dim x As String
x = " "
While Len(x) <> 0
x = InputBox("Value ?", "Test", "")
If (x <> "") Then
If IsNumeric(x) Then
Text0.Value = CDbl(Text0.Value) + CDbl(x)
Else
MsgBox "Invaliud number", vbOKOnly + vbExclamation
End If
End If
Wend
End Sub
Change:
- text0 for the name of your TextBox
- Create a button and change the Command2 for the name of your new button
It will be in loop while you don't click cancel or enter an empty value.
Let me know if it worked
Take Care
Mauricio Silva