主题：显示编译器错误1025

 请教：公式中运行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的横线