Public Shared ReadOnly Property PortList() As Dictionary(Of String, Boolean)
    Get
 
        Dim List As Dictionary(Of String, Boolean) = New Dictionary(Of String, _
          Boolean)
 
        ''Liste mit Werten füllen
        List.Add("COM 1", True)
        List.Add("COM 2", False)
        List.Add("COM 1", True)
        ''.....
 
        Return List
 
    End Get
End Property

For Each Port In PortList
 
    If Port.Value = False Then
 
        MsgBox(Port.Key & " ist nicht verfügbar!")
 
    End If
 
Next