Acumulador en textbox VB

Saludos, tengo 4 textbox y un botón, en los dos primeros introduzco números para multiplicarlos, al introducir el segundo numero me aparece un subtotal en un tercer textbox que seria la multiplicación del primero por el segundo. Y al hacer click en el botón me debería borrar los datos de los tres textbox y acumular los resultados en el cuarto textbox... Por favor agradezco su ayuda!!!

Private Sub TextBox2_Change()
Dim Subtotal As Long

Subtotal = Val(TextBox1.Text) * Val(TextBox2.Text)
TextBox3.Text = Subtotal

End Sub

Private Sub CommandButton1_Click()Dim total As Long
Dim Subtotal As Long
Dim i As Integer

total = 0

Subtotal=TextBox3.Text

For i=1 To ?

          total = total + Subtotal
          TextBox4.Text = total

Next i

TextBox1.Text = ""TextBox2.Text = ""
TextBox3.Text = ""

End Sub