Using GetData to fetch LARGE data

[SocketSolutions]

Im using mswinsck.ocx and RFC977, and 2980.

I have the basics for a nifty NNTPd, but have run into
a stumbling block! When I attach a file to send with
a message (Base64 encoded, using WinVn), I only receive
512bytes of the transmission!

Something like this:

winsock(index).DataArrival - - - -

Dim InBuffer as string
Dim FileName as string
Dim FF as Integer

Winsock(0).GetData InBuffer

FF = FreeFile
Open "c:\Test.msg" for output as ff
print #ff, InBuffer
Close FF

Winsock(0).Close


Yes, this does NOT include all the details in the
RFCs, they are implimented in the program, this is
only a snippit to show how I am receiving the data.

If we do this:

text2.text = str(len(InBuffer))

I only show length to be 512bytes, and test.msg
is only 512bytes in size. I just sent a 62K
.BMP image as an attachment!

What in the WORLD am I doing wrong?

Thanks in advance!
Andrew