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