What are you trying to filter...?

And why are you declaring Data as an object?

Code:
Private Sub Winsock1_DataArrival()
    Dim bytData() As Byte, strData As String
    
    winsock1.GetData bytData()
    'Convert data to string.
    strData = StrConv(bytData(), vbUnicode)
    
    If LCase$(Left$(strData, 4)) = "post" Then
        'Ignore HTTP post...
    End If
    
End Sub