Textbox value print in a cell with two decimals

[aves]

Hi guys, how would I do so that when I write in a textbox and click on a commandbutton it prints it in a cell with a two decimal place format and the dollar symbol?

 

[Zot]

If you are using ActiveX TextBox, just need to enter number and press enter with this code

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then
    If Not TextBox1.Text = "" Then
        With Range("A1")
            .Value = CDbl(TextBox1)
            .NumberFormat = ("\$#0.00")
            TextBox1.Text = ""
        End With
    End If
End If

End Sub