Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1) Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1) Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1) Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)