问个简单的问题 VB6 <--> VC6

若在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;
}

或是有哪边要改?