大神求助关于VB导入到TXT里面

zpj415263

子几做了一个
Private Sub CommandButton1_Click()
UserForm5.Hide
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("d:\\Lisp091104\\DWG\\file.txt", True)
a.WriteLine (ComboBox1.Text)
a.WriteLine (ComboBox2.Text)
a.WriteLine (ComboBox3.Text)
a.Close
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox2.AddItem "美女帅哥"
ComboBox1.AddItem "美女帅哥"
ComboBox1.AddItem "美女帅哥"
ComboBox2.AddItem "美女帅哥"
End Sub
想先导入到TXT在导入到EXCEl中
file.txt因为combox1里面没有内容导致出现
FILE.txt里面第一行是空格
第二行是数据
VB 需要怎么修改下才能达到如果发现那个boX里面没有数据，就不输出到FILe。TXT文件里。
例如BOX1输入33333
BOX2不输入
BOX3输入44444
FILE.txt里面是这样的（中间不会出现空行现象）
33333
44444

求大神指导。