Tengo Un Problemita Con Los Textbox
 
 tengo 3 textbox  con diferentes nombre

 TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text

en el form4 me sale el precio pero si le agrego otro textbox no me sale
y asi sucesivamente

 TXTprecio = Format(Val(TXTprecio.Text), "Currency")
Form4.lblprecio = Form2.TXTprecio.Text
 
Precio = Format(Val(Precio.Text), "Currency")
Form4.lblprecio = Form2.Precio.Text
 
 

Estaba Pensando en poner if y then a cada uno
 

if Precio = Format(Val(Precio.Text), "Currency") then
Form4.lblprecio = Form2.Precio.Text
 

mi pregunta es como hago para que  los que yo digito en los textbox's me salen en el form(4)

Form4.lbldinero = Form2.precio.Text
Form4.lblprecio = Form2.textprecio.Text
Form4.lblprecio = Form2.txtprecio.Text
 

solo me sale lblprecio=0 con los 3  pero si tengo 1 me sale el precio en form4