Подскажите про оператор IF THEN END IF

Function CreateWebServer( _
        ByVal pIMemoryAllocator As IMalloc Ptr _
    )As WebServer Ptr
    
    Dim pIPool As IThreadPool Ptr = Any
    Dim hr As HRESULT = CreateInstance( _
        pIMemoryAllocator, _
        @CLSID_THREADPOOL, _
        @IID_IThreadPool, _
        @pIPool _
    )
    If SUCCEEDED(hr) Then
        Dim pIRequest As IClientRequest Ptr = Any
        hr = CreateInstance( _
            pIMemoryAllocator, _
            @CLSID_CLIENTREQUEST, _
            @IID_IClientRequest, _
            @pIRequest _
        )
        If SUCCEEDED(hr) Then
            Dim pIResponse As IServerResponse Ptr = Any
            hr = CreateInstance( _
                pIMemoryAllocator, _
                @CLSID_SERVERRESPONSE, _
                @IID_IServerResponse, _
                @pIResponse _
            )
            If SUCCEEDED(hr) Then
                Dim pINetworkStream As INetworkStream Ptr = Any
                hr = CreateInstance( _
                    pIMemoryAllocator, _
                    @CLSID_NETWORKSTREAM, _
                    @IID_INetworkStream, _
                    @pINetworkStream _
                )
                If SUCCEEDED(hr) Then
                    Dim this As WebServer Ptr = IMalloc_Alloc( _
                        pIMemoryAllocator, _
                        SizeOf(WebServer) _
                    )
                    If this <> NULL Then
                        
                        Dim EventsCreated As Boolean = True
                        
                        For i As Integer = 0 To SocketListCapacity - 1
                            this->hEvents(i) = WSACreateEvent()
                            If this->hEvents(i) = NULL Then
                                EventsCreated = False
                                Exit For
                            End If
                        Next
                        
                        If EventsCreated Then
                            InitializeWebServer( _
                                this, _
                                pIMemoryAllocator, _
                                pIPool, _
                                pINetworkStream, _
                                pIRequest, _
                                pIResponse _
                            )
                            ' Успешно, возвращаем объект
                            Return this
                        End If
                    End If
                    ' Откат
                    INetworkStream_Release(pINetworkStream)
                End If
                ' Откат
                IServerResponse_Release(pIResponse)
            End If
            ' Откат
            IClientRequest_Release(pIRequest)
        End If
        ' Откат
        IThreadPool_Release(pIPool)
    End If
    ' Ошибка, объект не создан и не проинициализирован
    Return NULL
    
End Function