Give this a try:
TextBox1.Text = Format(CDbl(TextBox1.Text), "$#,##0.00")
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")

Regards,
Ryan---

--
RyGuy


"Jacy Erdelt" wrote:

I have 2 text boxes within a user form called "EnterNewConsult" that I need
to format. One text box called "Date of Consult" needs to be formatted in the
00/00/00 date format, and the other called "Quote Amount" needs to be
formatted as $0.00. Can you help me figure out what the code would look like
for those?

Also, how would I go about entering all of the values in my text boxes from
the user form into their corresponding cells within the workbook?

Your help is greatly appreciated!