Text1.Text = Text1.Text + CStr(a(i)) + "