各位大神帮忙看下-这个怎么解决。

Private Sub CommandButton1_Click()
UserForm1.Hide
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\\LISP\\file.txt", True)
a.WriteLine (ComboBox1.Text)
a.WriteLine (ComboBox2.Text)
a.WriteLine (ComboBox3.Text)
a.WriteLine (ComboBox4.Text)
a.WriteLine (Date)
a.WriteLine (ComboBox5.Text)
a.WriteLine (ComboBox6.Text)
a.WriteLine (ComboBox7.Text)
a.WriteLine (ComboBox8.Text)
a.WriteLine (ComboBox9.Text)
a.WriteLine (ComboBox10.Text)
a.Close
End Sub
F8到第一行就显示黄色出现一个对话框说：compile error:
can;t find project or library