一个关于EbExecuteLine的问题


Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
    ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate Sub Command1_Click()
    ExecuteLine "msgbox (1+2)*3/4"
    ExecuteLine "dim a as integer"
    ExecuteLine "a = 10"
    ExecuteLine "Print a"
End Sub没编译的时候可以正常运行,编译后运行出现如下错误:"运行时错误"53" 文件未找到:vba6.dll"
请问是怎么回事,该如何解决?
谢谢