VBA, how can I clear the COM buffer

[vbauser00]

I'm using the command
Open COM2:115200,N,8,1 for Binary Access Read Write As #1

Before reading using the Get #1, , byte_variable_name I would like to clear what's in the buffer. Excel crashes if I read too many bytes that doesn't exist in the buffer.

Would the Seek command help me? Seek requires a starting location, which I don't know without knowing the length of data in the buffer.

Any ideas would be helpful.
Thanks.

 

[John_w]

Untested, maybe:

    Dim buffer() As Byte

    Open "COM2:115200,N,8,1" For Binary Access Read As #1
    If LOF(1) > 0 Then
        ReDim buffer(0 To LOF(1) - 1)
        Get #1, , buffer
    End If
    Close #1

 

[vbauser00]

Untested, maybe:

    Dim buffer() As Byte

    Open "COM2:115200,N,8,1" For Binary Access Read As #1
    If LOF(1) > 0 Then
        ReDim buffer(0 To LOF(1) - 1)
        Get #1, , buffer
    End If
    Close #1

Thanks for your reply.
LOF(1) is always returning a '0' for me. Returns same value when the buffer has data vs no data.

I can close the port and re-open to clear the buffer. But trying to avoid that as a Band-Aid fix.