Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
     If TextBox1.Text <> "" Then
        TextBox1.Text = Format(CDec(TextBox1.Text), "#,#")
        TextBox1.SelectionStart = TextBox1.Text.Length
    End If