この早期バインディングの失敗を解決するにはどうすればよいですか？

Question

文字列からHTMLを取り除こうとしていて、two methods in this SO threadが見つかりました。

最初の応答のコードは機能しますが、レイトバインディングを使用します。

With CreateObject("htmlfile") 
    .Open 
    .write "<p>foo <i>bar</i> <u class='farp'>argle </zzzz> hello </p>" 
    .Close 
    MsgBox "text=" & .body.outerText 
End With 

早期バインディングを使用代替答え、のコードは、コンパイルエラーできます（「制限付きとしてマークされた機能やインタフェースを、または関数は、Visual Basicでサポートされていないオートメーション型を使用しています」）。

Public Function StripHtml(inputHtml As String) As String 
    With New HTMLDocument 
     .Open 
     'Following line gives compile error 
     .write "<p>foo <i>bar</i> <u class='farp'>argle </zzzz> hello </p>" 
     .Close 
     StripHtml = .body.outerText 
    End With 
End Function 

私の質問：

1. は、単に代替答えではないと同等ですか？
2. 最初の回答と同等の初期バインディングはありますか？
3. CreateObject("htmlfile")は、オブジェクトブラウザでそのオブジェクトタイプが見つからない場合はどうしてですか？

Answer 1

これら二つは等価で、私は

withコマンド、一時、無名のオブジェクトを作成し、 "With CreateObject("htmlfile")仕事は...ない理由"

Option Explicit 

Sub Macro1() 

    Dim aaa As Object 
    Set aaa = CreateObject("htmlfile") 
    aaa.Open 
    aaa.write "<p>foo <i>bar</i> <u class='farp'>argle </zzzz> hello </p>" 
    aaa.Close 
    Debug.Print "text=" & aaa.body.outerText 

' --------------------------------------------------- 

    Dim bbb As New HTMLDocument 
    bbb.body.innerHTML = "<p>foo <i>bar</i> <u class='farp'>argle </zzzz> hello </p>" 
    Debug.Print "text=" & bbb.body.outerText 

End Sub 

あなたの質問を約CreateObject("htmlfile")を読むべきだと思います（一部の言語で使用されているラムダ関数に似ています）

次に、setコマンドを使用してそれを参照する変数を作成します。