Private Sub TextBox1_Change() TextBox1 = Format(TextBox1.Value, "### ### ### ##0") End Sub
Private Sub TextBox1_Change() TextBox1 = Format(TextBox1.Value, "###.###.###.##0") End Sub
TextBox1.Text = Format(TextBox1.Text, "#,##0;(#,##0)")
Format(TextBox1.Value, "#0")