Label14.Text = FormatCurrency(Val(Label14.Text), 2)