Как накопить сумму данных из одного Textbox? - VB

Формулировка задачи:

Уважаемые программисты. Есть вот такой код

Private Sub Command1_Click()
Dim i As Integer
Dim P As Long
Dim Pi As Long
P = 0
For i = 1 To 10
Pi = InputBox("Введите силу ", "Окно введения", 10, 9000, 6000)
P = P + Pi
Next i
Print P
End Sub

Всё просто всё работает. Можно ли сделать так, чтобы значение Рi вводилось из ОДНОГО Textbox. То есть ввёл в текстбокс 10, нажал кнопку (условно добавить), Р стало 10. Ввёл в текстбокс 20, нажал кнопку (условно добавить), Р стало 30. Количество таких вводов неизвестно заранее, может быть 1, а может и 100 раз.

Решение задачи: «Как накопить сумму данных из одного Textbox?»

textual
                            Листинг программы 
                        

                            Dim P As Long
Private Sub Command1_Click()
         P = P + Val(Replace(Text1.Text, ",", "."))
         Print P
End Sub
                        