dim NumFile NumFile=FreeFile cd.ShowOpen open cd.FileName For Append As #NumFile Print #NumFile,Text1.text Close #NumFile