VB调用选择集时，如何避免AUTOCAD文本窗口出现空行？

zxj_76

代码：
Set sSet1 = AcadDoc.SelectionSets.Add("Pczx2006" & Trim(Str(AcadDoc.SelectionSets.Count + 1)))
Call sSet1.Select(acSelectionSetCrossing, Pnt1, Pnt2, GroupCode, DataCode)

运行前文本窗口界面：


运行后文本窗口界面：


现象：执行上述代码后，对比文本窗口多了一个空行。
问题：设置哪个变量，可以避免出现这种空行现象？