Como Hago Cuando Yo Termino de digitar el precio me salga este mensaje   

 msgbox"La Transferencia Ha Sido Completada"

seria en un evento change   text1change()

Cuando Digito algo siempre me sale el mensaje  si quiero poner 4,000 me  sale cada vez que voy digitando un numero   no me deja poner el precio total

Private Sub text1_Change()
text1.text=text1.text 
MsgBox "La Transferencia Ha Sido Completada"
 

Esta Pensando Algo asi



 

Private Sub text1_Change()
text1.text=Val(text1.text )
MsgBox "La Transferencia Ha Sido Completada"
 

Asi Me Deja Poner Cualquier Valor

Lo del msgbox sigue igual