关于 VB6 调用C++ DLL 传参的问题

[spade24]

C++ dll函数：

extern "C" __declspec(dllexport)   unsigned int __stdcall  WINAPI SetPath(CString FileDir);

unsigned int __stdcall  WINAPI SetPath(CString FileDir)
{

	AfxMessageBox(FileDir);//第1步
	FileDir=FileDir+"\1";//第2步
	AfxMessageBox(FileDir);//第3步

         return 1;
}

VB 加载DLL：

Declare Function SetPathLib "MyDLL" _
(ByVal FileDir As String) As Integer

Private Sub Command18_Click()
Dim r As Single
r = SetPath(App.Path)
End Sub

执行上述VB程序后，通过调试，发现执行到C++dll中的第2步时就报“内存不能为read的错误”；
调试发现，如果我对FileDir不加东西，能正常运行，如果在后面加任何字符串就报错。
不知所云。