Public Function IstComPortVorhanden(ByVal ComPortNr As Integer) As Boolean
' Überprüft ob ein Com Port vorhanden ist und gibt die Nummer aus
  Dim cc                    As COMMCONFIG
  Dim lGroesse              As Long
  Dim Port                  As String
 
  lGroesse = LenB(cc)
  Port = "COM" & ComPortNr & Chr$(0)
 
  IstComPortVorhanden = (GetDefaultCommConfig(Port, cc, lGroesse) <> 0)
 
End Function