FP: Run-time Error '-2147467259 (80004005)' Publishing to Root Web/Subweb

Sub PublishWeb()
    
    ' Set up variables. For FrontPage 2000 compatibility, dim the source 
    ' and destination Webs as "As Web". For FrontPage 2002 compatibility, 
    ' dim these variables as "As WebEx".
    Dim sSourceWebURL   As String
    Dim sDestWebURL     As String
    Dim oSourceWeb      As Web
    Dim oDestWeb        As Web
    
    ' Prevent any errors from crashing.
    On Error Resume Next
        
    ' Prompt for the source Web.
    sSourceWebURL = InputBox("Enter source URL:" & vbCrLf & _
      "If this is a server-based Web, include 'http://' in the URL.", _
        "Publish Web")
    
    ' Prompt for the destination Web.
    sDestWebURL = InputBox("Enter destination URL:" & _
      "If this is a server-based Web, include 'http://' in the URL.", _ 
        "Publish Web")
    
    ' Check to make sure you have both URLs.
    If sSourceWebURL = "" Or sDestWebURL = "" Then
        MsgBox "You must enter a source and destination URL." _
          & "Please try again."
        Exit Sub
    End If
    
    ' Open the source Web.
    Set oSourceWeb = Webs.Open(sSourceWebURL)

    ' See if the source Web exists.
    If oSourceWeb Is Nothing Then
        MsgBox "The source Web could not be found." _
            & "Please try again."
        Exit Sub
    End If

    ' The Add method creates the Web if it doesn't exist.  Therefore,
    ' by using this method, you will always publish with the 
    ' fpPublishAddToExistingWeb flag.
    Set oDestWeb = Webs.Add(sDestWebURL)
    If oDestWeb Is Nothing Then
        MsgBox "The destination Web could not be created." _
            & "Please try again."
        ActiveWebWindow.Close
        oSourceWeb.Close
        Exit Sub
    End If

    ' Close the ActiveWebWindow.  The ActiveWebWindow contains the 
    ' destination Web at this point, and since it's already done its job, 
    ' you no longer need to keep it open.
    ActiveWebWindow.Close

    'Publish the Web
    oSourceWeb.Publish sDestWebURL, fpPublishAddToExistingWeb
 
End Sub