それはすまんかった。
手元に環境無くて試せないけど、一つだけ。
TCP_NODELAYを有効にしたいのなら、値は1にしなきゃ駄目なのでは?

ttp://support.microsoft.com/kb/237688/ja

' Change two options valid for TCP Sockets.
lResult = setsockopt(Winsock1.SocketHandle, IPPROTO_TCP, TCP_NODELAY, 1, 4)
If (lResult = SOCKET_ERROR) Then
MsgBox "Error setting TCP_NODELAY option: " & CStr(Err.LastDllError)
End If