ASP调用DLL，类型不匹配，请帮忙

DLL   code


Private   WithEvents   Winsock1   As   MSWinsockLib.Winsock
Private   mstrServerIP   As   String    
Private   mintServerPort   As   Integer    
Private   mstrTextToSend   As   String
Private   mstrTextReceived   As   String
Private   bConnected   As   Boolean

Private   Sub   Class_Initialize()
    On   Error   Resume   Next
    mstrTextToSend   =   " "
    mstrTextReceived   =   " "
    bConnected   =   False
End   Sub

Private   Sub   Class_Terminate()
    On   Error   Resume   Next
    Winsock1.Close
    Set   Winsock1   =   Nothing
    Unload   Winsock1
End   Sub

Private   Sub   ConnectServer()
    Winsock1.RemoteHost   =   mstrServerIP
    Winsock1.RemotePort   =   mintServerPort
    Winsock1.LocalPort   =   0
    Winsock1.Connect
End   Sub

Private   Sub   SendRequest()
    If