Private Sub LoadComPortDescription()
        AddStatusMessage("Lade Anschlüsse...")
        Dim i As Integer
        Dim Search As New ManagementObjectSearcher("SELECT Description," & _
          "DeviceID FROM Win32_SerialPort")
        Dim info As ManagementObject
        For Each info In Search.Get()
            For i = 0 To Me.comboPort.Items.Count - 1
                If CStr(info.Item("DeviceID")) = CStr(Me.comboPort.Items(i)) _
                  Then
                    Me.comboPort.Items(i) = CStr(Me.comboPort.Items(i)) & " (" _
                    & CStr(info.Item("Description")) & ")"
                    If CStr(info.Item("Description")) = "NPG 22-3" Then
                        Me.comboPort.SelectedIndex = i
                        AddStatusMessage("Anschluss NPG 22-3 gefunden")
                        FlagsComFound = 1       'Flag was anzeigt ob der 
                        ' "richtige" Anschluss gefunden wurde
                    End If
                End If
            Next i
        Next
        If Me.comboPort.SelectedIndex = -1 Then
            AddStatusMessage("Anschluss NPG 22-3 nicht gefunden")
            FlagsComFound = 0
        End If
    End Sub