みなさま、ついにWriteFileをしなくても受信できました。

dim ret as long
dim er as long
dim gcom as COMSTAT
ret = ClearCommError(hComm, er, gcom)
if gcom.fDsrHold > 0 then
　　dim rdata as string
　　dim dlen as long
　　dim rlen as long
　　dlen = gcom.fSdrHold
　　rdata = space(dlen)
　　dummy = ReadFile(hComm, byval rdata, dlen, rlen , 0)
end if

問題はfDsrHoldが何者かということですが・・・・