Api Funktion ClearCommError

Weiß jemand aus welchen Grunde die API Funktion auf die
Variable vom TYP COMSTAT nix draufschreibt ?

Ich kann keinen Fehler finden ?


Private Type COMSTAT
        fCtsHold As Long
        fDsrHold As Long
        fRlsdHold As Long
        fXoffHold As Long
        fXoffSent As Long
        fEof As Long
        fTxim As Long
        fReserved As Long
        cbInQue As Long
        cbOutQue As Long
End Type

Private Declare Function ClearCommError Lib "kernel32" (ByVal hFile As 
Long, lpErrors As Long, lpStat As COMSTAT) As Long

Public Function InBuffer(ByVal hFile As Long) As Long
 Dim H1, H2 As Long ' nicht von Interesse
 Dim ZZZ As COMSTAT
 ZZZ.cbInQue = 15 'Testen ob mit 0 überschrieben wird
 H1=ClearCommError(hFile, H2, ZZZ)
 InBuffer = ZZZ.cbInQue
End Function

Die Funktion lieferte immer 0 zurück, und seit dem ich sie zum Test 
vorbelegt habe, immer 15, obwohl Zeichen mit ReadFile aus dem Buffer 
gelesen werden können.

Ich bin etwas ratlos.

Gruß Peter