DLL部份代码：
//101901.cpp
#include "stdafx.h"

char str[] = "HELP" ;

BOOL APIENTRY DllMain( HANDLE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    return TRUE;
}

char*  _stdcall GetChar( )
{
    return str ;
}

VB声明：
Declare Function GetChar Lib "101901.dll" () As String
Vb调用DLL,代码：
Private Sub cmdCommand1_Click()
    Dim str1 As String
    str1 = GetChar()　　‘为什么str1这个字符串是空的呢，我想要的结果str1=”HELP”
    Print str            ‘显示出来是空的，什么都没有。
End Sub

谢谢，但是还是不行啊，提示有类型不匹配。

非常感谢，可以了。
还有个问题。
但要是DLL中的变量str的字符串是不确定的，在VB中又怎样确定lstrcpyn 这个函数的第三个参数（即字符串的个数）呢?

谢谢，可以了。
lstrcpyn str1 , GetChar(),len(str1)‘不过这个函数的第三个参数，应该还要加1,即为len(str1)+1,要不然最后一个字符会丢失。

下次有不懂的地方再请教版主。

版主，再请教个关于VB调用C++编写的winsock的DLL的问题。这个是基于UDP通信的。
DLL部份代码如下：
//PmuDll.cpp
struct SendData
{
    BYTE data[12] ;
}SendBuf,*pSendBuf;        //需要发送的数据包和数据包地址的缓存区

struct RecvData
{
    BYTE data[2] ;
}RecvBuf,*pRecvBuf;       //需要接收的数据包和数据包地址的缓存区

SOCKET s ;                    //声明套接字变量  
SOCKADDR_IN addrSock ;        //声明发送或接受数据的地址变量

void UDP_Socket(char *dwIP ,u_short PortNo)
{
    WSADATA wsadata ;                            //库版本的相关信息
    WORD wVersionRequested ;                        //加载的Winsock的版本
    int err ;                                        //用于标志初始化是否成功
wVersionRequested = MAKEWORD(2, 0) ;         //通过MAKEWORD给版本号//的高低位赋值
err = WSAStartup(wVersionRequested ,&wsadata) ;    //WSAStartup函数被用来加载Winsock库,即初始化//Socket环境,若返回0,初始化成功,否则初始化失败
    if(err != 0)
    {
        return ;
    }
    if (LOBYTE(wsadata.wVersion != 2) || HIBYTE(wsadata.wVersion != 0))
    {
        WSACleanup() ;
        MessageBox(NULL ,"版本出错!", "提示" ,MB_OK ) ;    //关闭SOCK环境
        return ;
    }
    s = socket(AF_INET ,SOCK_DGRAM ,0) ;                    //设置SOCKET套字
    if(INVALID_SOCKET == s)
    {
        MessageBox(NULL ,"创建套字失败!", "提示" ,MB_OK || MB_DEFBUTTON1 ) ;
        return ;
    }
    addrSock.sin_addr.S_un.S_addr = inet_addr(dwIP) ;            //IP地址
    addrSock.sin_family = AF_INET ;                            //网络类型
    addrSock.sin_port = htons(PortNo) ;                        //端口
    int len = sizeof(SOCKADDR) ;
    pSendBuf = &SendBuf ;                                    //需要发送数据包的地址
    //发送数据   
    sendto(s ,(char*)pSendBuf ,sizeof(SendData) + 1 ,0 ,(SOCKADDR*)&addrSock ,len) ;
   


//接收数据
    pRecvBuf = &RecvBuf ;
    recvfrom(s ,(char*)pRecvBuf ,sizeof(RecvData) ,0 ,(SOCKADDR*)&addrSock ,&len) ;
    closesocket(s) ;
    WSACleanup() ;
}

在VB中调用PmuDll.DLL时出现了问题，DLL中注释掉接收远程机数据包的函数(recvfrom)，程序能够运行，且远程机也能接收到发给它的数据；若不注释掉这个recvfrom函数，VB程序一运行，然后再调用这个UDP_Socke函数，VB程序就卡死掉了。该怎样修改呢？？