请教：公式中运行1个输出文本的vba过程，不需要公式显示输出，怎么做?我把公式弄到vba里，运行报错
sub writetxt(a)
Open "d:\1.txt" For Output As #1
Print #1, a
Close #1
end sub
显示编译器错误1025
该代码在vb6里运行正常
或者更简单，新增函数
function writetxt(a)
Open "d:\1.txt" For Output As #1
Print #1, a
Close #1
writetxt=1
end function
然后在公式里引用：
a:1;
if 条件 则 bb:=writetxt("字符串")
字符串不行，我又编写了数值型的
Function get444(a)
get444=a+1
end function
然后公式里：
xx: get444(1);
输出显示0的横线，根本没输出，本应显示2的横线
自定义函数的添加方法：
可以通过两种方法添加自定义函数：
1、在公式编辑器界面中，鼠标在“函数”解释定义区单击右键，然后选择“添加自定义函数”。
2、在Visual Basic工程管理器中选择Function模块，进入Visual Basic编辑界面，然后选择“插入”菜单中的“过程”。
有关自定义函数的格式
每个自定义函数都会有一个Formula对象，即使没有参数的自定义函数也至少有这么一个对象参数存在。每次公式系统执行遇到自定义函数的时候，会不断的依次调用它，直至整个公式解释完毕。
注意：请不要试图在Function模块中直接添加自定义函数，因为这样系统不会承认他。