Excel - formato de textbox 2

hola buenas noches tengo la siguientes instrucciones en un textbox, el asunto es que cuado estoy ingresando en el textbox los datos no aparecen con formato de moneda, en la celda b4 si queda registrado con formato de moneda, pero quisiera que a la hora de introducir los datos en el textbox quede con el mismo formato

saludos y gracias por la ayuda

Private Sub TextBox3_Change()
Range("B4").Select
ActiveCell.FormulaR1C1 = Format(TextBox3, "$0,0.00")
End Sub