VC中调用VB生成的DLL，DLL中打开xml文件时出错。该如何处理

VC中调用VB生成的DLL，DLL中打开xml文件时出错。。。
VB生成的DLL中调用的函数TestCallDll：
Public Function TestCallDll()
  Dim strXML As String
    
  Dim strXMLFileName As String
    
  MsgBox "0001"
    
  strXMLFileName = App.Path & "\test.xml"
    
  MsgBox "0002"
  MsgBox strXMLFileName
    
  Open strXMLFileName For Input As #1
    
  MsgBox "0003"
    
  strXML = Input(FileLen(strXMLFileName), #1)
    
  MsgBox "0004"
    
  Close #1
    
  MsgBox "0005"
End Function


可以肯定的是，上面的TestCallDll（）函数在VB环境下是能运行通过的。随便写的VB的exe程序测试即可。
生成DLL之后，在VC中调用，单步运行，通过观察弹出信息框，可以证明在运行DLL中的“ Open strXMLFileName For Input As #1 ”时出错。出错弹出信息：
---------------------------
Microsoft Visual C++
---------------------------
Unhandled exception in VCClient.exe (KERNEL32.DLL): 0xE06D7363: Microsoft C++ Exception.
---------------------------
确定   
---------------------------


请问，我该如何更改程序，才能正确运行?
(提示：当你正确回答了这个问题，可以到这里VC板块这个问题里随便答一下，30分送上。。。)
------解决方案--------------------
试下不用App.Path  而用固定路径，或者将这个方法加个路径参数
------解决方案--------------------
注册一下你的DLL就行