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