若在VB6呼叫一个DLL，DLL中有个A参数是ByRef字串的，VC6接收到后要如何将此位址填入另一个B指针内的值？

Private Declare Function AAA Lib "AAA.dll" ( ByRef A as String) as Long
Dim A as String,aa as Long
A=""
aa=AAA(A)
'A要如何得出"ABCDE"?
-----------------------------------------------
int _stdcall AAA(char *A)
{
    char *B="ABCDE";
    strcpy(A,B);    //<---这边要怎改？
    return 1;
}

或是有哪边要改?

用VB开一个内存位址指给VC后，在VC中某个段落中
将某个字串值写到VB所给的位址内，当VC结束后，
我可以在VB中读取出该位址的字串要怎么做？

OK...