Actually you may want to throw in the VAL() in case they do enter text by accident it would give them a casting from string to decimal error:

Format(Math.Round(CDec(Val(TextBox1.Text)), 2), "Currency")