主题：为何此定义函数在命令窗口测试错误？

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.remove("Sum")
Functions.Add("Sum",Code)
Functions.Complie()

Dim sum = Functions.Execute("sum")
msgbox(sum)