Private FoundAdaptersList As New List( Of StrctAdapterCables )

Public Structure StrctAdapterCables
 
    Dim serialNumber As String
    Dim adapterType As String
    Dim testPoint As Integer
    Dim cableStatus As EnStates
    Dim ledStatus As Boolean
 
End Structure

For Each adapter As StrctAdapterCables In FoundAdaptersList
 
    If adapter.testPoint = tp Then
 
        adapter.cableStatus = EnStates.reserved
        adapter.ledStatus = LED_ON
 
        Exit For
 
    End If
 
Next adapter