code:Text1.Text = Mid$(Text1.Text, 1, Len(Text1.Text) - 1)
code:Text1.Text = Replace$(Text1.Text, """", "")
code:Text1.text = Replace(Text1.Text, Chr(34), vbNullString)