帮助文件里代码放入命令窗口测试出错。请问是有变化了吗？

Dim Code As string
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Dim Val2 As Integer = 2" & vbcrlf
Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code = Code & "Return Sum"
Functions.Add("Sum",Code)
Functions.Complie()

错误提示

编译错误："If"必须以匹配的 "End If" 结束

错误代码：Else

此主题相关图片如下：无标题.png

经测试失败的方法：

1.2009年的其它朋友问的问题，里面提到的 Functions.Complie(true) 试过，无效果：

Functions.Complie()是否有错?

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=3735&replyID=&skin=1

2.是否Functions.Add 自定义函数功能不能在命令窗口测试，只能写到事件代码里去测试？

我在xp 

狐表版本 2014-11-11

测试没有问题