超简单问题进来就能得分！！！！！！

Question

在保存TEXT中的文件时如何判断某行是否为空如果为空则不保存继续保存下面一行
我的代码
On Error GoTo abc
If Text2 <> "" Then'CommonDialog1.ShowSave
 CommonDialog1.FileName = App.Path & "\bingbz.dre"
  Open CommonDialog1.FileName For Append As #1
   Print #1, Text2
  Close #1
   Text2.Text = ""
   MsgBox "添加成功", 64, "提示"
Else
 Exit Sub
End If
abc:

Answer 1

if trim(Text2.Text) <> "" then 
CommonDialog1.FileName = App.Path & "\bingbz.dre" 
  Open CommonDialog1.FileName For Append As #1 
  Print #1, Text2 
  Close #1 
  Text2.Text = "" 
  MsgBox "添加成功", 64, "提示" 
Else 
Exit Sub 
End If 
abc:

Answer 2

Print #1, Replace$(Text2, vbCrLf & vbCrLf, vbCrLf)

Answer 3

dim a() as string
dim i as long
a = split(Text1.Text, vbCrLf)
for i=0 to ubound(a)
    if lenb(a(i))<>0 then Print #1, a(i)
next