Dim dj As DecimalMessageBox.Show(e.Form.Controls("TextBox1").text)
dj = format(val(e.Form.Controls("TextBox1").text), "0.00")MessageBox.Show(dj)