Unknow error~

[sweetboy]

Sub SendDataTo(ByVal index As Long, ByRef Data() As Byte)
Dim buffer As clsBuffer
Dim TempData() As Byte

    If IsConnected(index) Then
        Set buffer = New clsBuffer
        TempData = Data

        buffer.PreAllocate 4 + (UBound(TempData) - LBound(TempData)) + 1
        buffer.WriteLong (UBound(TempData) - LBound(TempData)) + 1
        buffer.WriteBytes TempData()

_**frmServer.Socket(index).SendData buffer.ToArray(**_)

    End If
End Sub

i got an error at this line anyone know why? and how to fix it?

[Stein]

What error? Kind of hard to tell when you're not telling us a thing.