Public Function InputByte(ByVal port As Long) As Long
This method retrieves the current input value of the specified digital I/O port on the device. When a port is configured as an input port (using the SetDirection Method), the input value represents the voltage levels on the port's pins. For each bit, a low voltage (close to 0V) yields a 0-bit in the input value and a high voltage (close to 5V) yields a 1-bit.
This method returns a Long. The return value is the current input value of the specified port.
Private Sub example() Dim portval As Long ' Set up error handling for this routine On Error GoTo myerror Set dev = New Eth32 ' .... Your code that establishes a connection here ' Read the input value of port 2 portval = dev.InputByte(2) ' See whether any of bits 0-3 are high (1) If (portval And &H0F) <> 0 Then ' At least one of bits 0-3 are high Else ' None of bits 0-3 are high End If Exit Sub myerror: MsgBox "ETH32 error: " & dev.ErrorString(Err.Number) End Sub