Private Sub Obtain_And_Change_ICF_Status(ByVal strConnection As String)
    On Error Goto ErrorHandler
 
    Dim SharingMgr As Object
    Dim EachConnection As Object
    Dim ConnectionProps As Object
    Dim item As Object
    Dim Previous_ICF_State As String
 
    Set SharingMgr = CreateObject("HNetCfg.HNetShare.1")
 
    If (Not (SharingMgr Is Nothing)) Then
        For Each item In SharingMgr.EnumEveryConnection
            Set EachConnection = _
                SharingMgr.INetSharingConfigurationForINetConnection(item)
 
            Set ConnectionProps = SharingMgr.NetConnectionProps(item)
 
            If (ConnectionProps.Name = strConnection) Then
                If EachConnection.InternetFirewallEnabled Then
                    EachConnection.DisableInternetFirewall
 
                    Previous_ICF_State = "ICF war aktiviert und ist jetzt" & _
                      "deaktiviert."
 
                Else
                    EachConnection.EnableInternetFirewall
 
                    Previous_ICF_State = "ICF war deaktiviert und ist jetzt" & _
                      "aktiviert."
 
                End If
 
                Exit For
            End If
        Next item
    End If
 
ExitSub:
    If (Len(Previous_ICF_State) <> 0) Then MsgBox Previous_ICF_State
 
    Exit Sub
 
ErrorHandler:
    Select Case Err.Number
        Case 55                 '   "Datei bereits geöffnet"
            Close #1            '   Datei schließen
 
        Case 70                 '   "Zugriff verweigert"
            Call MsgBox("Zugriff aufgrund fehlender Rechte verweigert.", _
                        vbInformation Or vbOKOnly)
 
        Case 429                '   Komponentenerstellung nicht möglich
            Call MsgBox("Komponente kann nicht erstellt werden.", _
                        vbInformation Or vbOKOnly)
 
        Case Else               '   andere auftretende Fehler hier behandeln
 
    End Select
 
    Resume Next
 
End Sub