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 BooleanPrivate Sub Class_Initialize()
    On Error Resume Next
    mstrTextToSend = ""
    mstrTextReceived = ""
    bConnected = False
End SubPrivate Sub Class_Terminate()
    On Error Resume Next
    Winsock1.Close
    Set Winsock1 = Nothing
    Unload Winsock1
End SubPrivate Sub ConnectServer()
    Winsock1.RemoteHost = mstrServerIP
    Winsock1.RemotePort = mintServerPort
    Winsock1.LocalPort = 0
    Winsock1.Connect
End SubPrivate Sub SendRequest()
    If Winsock1.State = sckConnected Then
        Winsock1.SendData mstrTextToSend
    End If
End SubPrivate Sub winsock1_Connect()
    bConnected = True
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strTemp
    Winsock1.GetData strTemp, vbString
    mstrTextReceived = mstrTextReceived & strTemp
End SubPrivate Sub WinSock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Err.Raise vbObjectError, "Error", "Winsock Error: " & Number & vbCrLf & Description
    CancelDisplay = True
End SubPrivate Function GetIP() As String
    Set Winsock1 = New MSWinsockLib.Winsock
    GetIP = Winsock1.LocalIP
    Winsock1.Close
    Set Winsock1 = Nothing
End FunctionPublic Function CheckGroup(StrPort As Integer, StrKey As String, GroupName As String) As String
    mstrServerIP = GetIP
    mintServerPort = StrPort
    mstrTextToSend = StrKey & GroupName
    Set Winsock1 = New MSWinsockLib.Winsock
    ConnectServer
    SendRequest
    Winsock1.Close
    Set Winsock1 = Nothing
    CheckGroup = mstrTextReceived
End Function~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ASP code
strport=8080
strword="ABCDEF"
struser="User"
set GetGroup=Server.CreateObject("Get.Group")
    CheckGroup=GetGroup.CheckGroup(strport,strword,struser)
set GetGroup=nothing
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~代码大概就是这个样子了。可我调用的时候却出错
Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'GetGroup.CheckGroup' 大家帮忙给找找原因吧，谢谢了