Visual Basic para Aplicaciones - Textbox tipo moneda

Hola, hay algien que me pueda ayudar, necesito darle formato a un textbox para que me aparesca tipo moneda... Saludos

Incluye este codigo:

Dim miMoneda as Currency 'define variable tipo moneda
miMoneda= Val (TextBox1.text) 'toma el texto y lo pasa a numero
miMoneda= CCur(miMoneda) 'toma el numero y lo pasa a moneda

'para escribir este valor en un rango
Worksheets("Hoja1").Activate
Range("A1").Value= miMoneda

Suerte