在窗體上添加壹個按鈕，在代碼窗口寫下如下代碼：
Private Sub Form_Load()
Open App.Path & "\a.txt" For Output As #1
Print #1, "Private Sub Command1_Click()"
Print #1, "a=10000"
For I = 0 To 3500
Print #1, "If a > " & I & " Then"
Next I
Print #1, "Print A"
For I = 0 To 3500
Print #1, "End If"
Next I
Print #1, "End Sub"
Close #1
End Sub將工程保存到壹個臨時文件夾中，運行後會在這個文件夾中生成壹個“a.txt”文件，打開，將其內容復制到代碼窗口，再運行，點擊按鈕，程序會正常運行。
但在Excel單元格裏寫公式的時候是有限制的，最多只能有7層。