Local lcNameProc 
lcNameProc  = "TrueAdress()"
? &lcNameProc  

Procedure TrueAdress()
   Return "Hello"
Endproc

#import "vfp9r.dll" rename_namespace("VFPLib") 
  using namespace VFPLib;

extern const IID IID_Application ={0x002D2B12, 0xC1FA, 0x4193,  
  {0xB1, 0x34, 0xD8, 0x6E, 0xAE, 0xCC ,0x52, 0x50}};


  ApplicationPtr pVfp; 
IDispatch* _vfpapp = (IDispatch*)IDisp;
pVfp  =  _com_ptr_t<ApplicationPtr>(_vfpapp);

Теперь функцию пишешь:

 void RunVfpProc(ParamBlk FAR *parm)
{
// переаешь имя процедуры как строку
// потом
pVfp ->DoCmd(_bstr_t(<имя метода, полученного из ParamBlk>));  
}