Visual Basic - Ayuda por favor textobox

necesito ayuda por favor... me gustaria murtiplicar entre si los textobos y no se como hacerlo.
esto es lo que suelo hacer:

Private Sub TextBox109_Change()
ActiveCell.FormulaR1C1 = TextBox107 = TextBox142
Rem aquí se crea la Formula
TextBox109 = Val(TextBox107) * Val(TextBox142)
Rem El Textbox3 guardara el total de la multiplicación del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numérico
Rem Esto se debe a que los Textbox no son Numéricos y debemos de Convertirlos
End Sub

y no se si es esta solucion estoy atascado.
real mente lo que quiero hacer es esto:

unidad: descripcion valor total valor
2 cajas 30,00 60.00

y despues darle al button para insertarlos en un presupuesto.....
gracias aquellos que se molesten en contestarme
un saludo Luis.

Lo estás haciendo en el evento Change del TextBox que guardará el resultado (TextBox109); tal vez deberías hacer eso mismo, pero en el evento Change de los textboxes TextBox107 y TextBox142, para que cada vez que se cambie su contenido se obtenga el resultado en el TextBox109.
Y en el comentario "El Comando Val permite convertir un valor de Texto a un Valor Numérico ", pues sucede que Val( ) no es COMANDO sino FUNCIÓN.
Por curiosidad: ¿qué intentas hacer con esto:
"ActiveCell.FormulaR1C1 = TextBox107 = TextBox142 " ?

es mas sencillo de lo que parece ivan, pero quizas no se explicarme,
necesito la formula para sumar un textobox con otro y que en otro textobox me de el resultado.

osea
textobox1+textobox+2textobox3+textobox4= x en el textobox 5
espero haverme explicado bien
muchas gracias ivan por contestar.

Sí te entendí, y la respuesta es la misma, en el evento Change de los TextBoxes que contienen los datos haz la operación para guardar el resultado en el TextBox5. Pero, para no repetir la rutina en cada TextBox, haz un procedimiento, algo así:

Private Sub TextBox1_Change()
Call ObtenResultado
End Sub

Private Sub TextBox2_Change()
Call ObtenResultado
End Sub
' Haces lo mismo en cada evento Change de los TextBoxes que tienen los datos.

Sub ObtenResultado()
Text5.Text = Val( Text1.Text ) + Val( Text2.Text ) + Val( Text3.Text ) ... 'los que sean
End Sub

Esto hace que cada vez que se escriba algo (se modifique el contenido) en alguno de los mencionados TextBoxes, en el Text5 aparezca el resultado.