Winsock send problemer

Jeg får fejlen "ByRef argument type mismatch" og nu er jeg ligesom gået lidt død i det... Den markerer linien med 'Call WaitComplete(x)' efter at jeg har trykket OK.

Hvis at X er forskellig fra Index, er det ikke brugeren som er logget på. dvs. at x skal have besked om brugeren loggede på.
Hvis X er lig med Index, er det brugeren der loggede på, og skal derfor bydes velkommen, og have en liste over online brugere.

AddToLog er bare et log-førings script jeg har lavet.

Hvordan løser jeg det problem?

Her er lidt af min kode:
Private blnWaitComplete(1000) As Boolean

-----------Funktioner----------
Public Sub WaitComplete(Index As Integer)
  blnWaitComplete(Index) = True
  Do While blnWaitComplete(Index)
    DoEvents
  Loop
End Sub
Private Sub Winsock_SendComplete(Index As Integer)
  blnWaitComplete(Index) = False
End Sub
---------Funktioner Slut--------
--------I min Select Case---------
Call lstUsersAdd(arrSplit(1))
On Error Resume Next
For x = 1 To 10
    If Winsock(x).State <> 0 Then
        If x <> Index Then
            Call AddToLog("Join announced to user")
            Winsock(x).SendData ("Join|" & arrSplit(1))
            Call WaitComplete(x)
        Else
            Winsock(Index).SendData ("lstUsers|" & UserList)
            Call WaitComplete(Index)
            Winsock(Index).SendData ("Welcome|" & arrSplit(1))
            Call WaitComplete(Index)
        End If
    End If
Next
---------Slut----------