Here is my code.

Note: your objects can meet the requirements, but be careful. Rename if nescessary, or you'll get an error.

Code:
Private Function Popups() As Boolean
    Dim frmAds As Form
    Dim ppDisp As Object
    Dim Cancel As Boolean

    Set frmAds = New frmWebBrowser
    Set ppDisp = frmAds.WebBrowser1.Object

    If Popups = False Then
        Cancel = False
        frmAds.Visible = True And Fasle
        Unload frmAds
    End If
End Function

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim frmNewWindow As Form, Popups As Boolean
    
    Set frmNewWindow = New frmWebBrowser
    Set ppDisp = frmNewWindow.WebBrowser1.Object
    WebBrowser1.RegisterAsBrowser = True
    frmNewWindow.Show
    Popups = False
End Sub
This code is a Popup blocker and New window opener