vc中
……
char* __stdcall ccc(char * a)
{
return a;
}例如生成c:\dll.dllvb中
Private Declare Function ccc Lib "C:\dll.dll" (ByVal a As String) As String随便一个过程中
  Text2.Text = ccc(Text1.Text)
即可