DeviceVSP_GetAllStatus

This will retrieve all value/status pair objects (VSPair) from a device which are defined as STATUS or BOTH.

Public Function DeviceVSP_GetAllStatus(ByVal dvRef As Integer) As VSPair()

MyPair = hs.DeviceVSP_Get(ref)
If MyPair Is Nothing OrElse MyPair.Length < 1 Then
    hs.WriteLog("Error","No pairs are assigned to device " & hs.DeviceName(ref))
    Exit Sub
End If
For Each P As VSPair In MyPair
    ...
Next

Where:

ref= device reference #

You can check the return value (VSPair object array) to determine if it was successful or not.  If the returned object = Nothing or has a count of zero then there are no status pairs (or both status and control pairs) on the device.