TextBox1.Text = Replace(TextBox1.Text, Chr(34), vbNullString)