I am entering data from a UserForm to a Worksheet.

When entering the value from the "Cost" TextBox , I want it to be in Accounting format on the Worksheet.

I have tried:

Sheet1.Range("A1") = cCur(Cost.Value)

Sheet1.Range("A1") = Format(Cost.Value,"$#,##0.00")

Sheet1.Range("A1") = Format(Cost.Value,"$*  #,##0.00")
They all end up in Currency format

(I also tried 
Sheet1.Range("A1") = Format(Cost.Value,"_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)")
but that caused an error)

The value in the Cost TextBox has been formatted itself:
UserForm.Cost = Format(ListBox1.Column(1), "$#,###.00")
What can I do so that the value is in Accounting format when it is entered on the Worksheet?