VBAで、一部の処理をfunctionで外部化すると戻り値がとれない

Question

前提・実現したいこと

VBAで、エクセルのセルに入力された値を元にHTTP通信し、結果を受け取りセルに出力したいです。
自身のスキルとしては、プログラミング初心者です。nodejs少々、VBAは記録マクロからスタートの独学のみなので、基本が理解できていないのは自覚しています。。
お分かりになる方がいらっしゃいましたらご教示いただけると幸いです。
また基本的な事項のご指摘も、お気付きの点がございましたらお願い致します。

発生している問題・エラーメッセージ

一通り動くことは確認でき、一部の処理を流用するのでfunctionで外部化したいのですが、戻り値が取得できません。
変数= 戻り値.lengthで「書き込みできません」のエラーメッセージが表示されます。

該当のソースコード

Function getStatus(ByVal number As String) As Object
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    http.Open "POST", "http://対象のURL", False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send number
    
    Do While http.readyState < 4
        DoEvents
    Loop
    
    Dim html As Object
    Set html = CreateObject("htmlFile")
    html.write http.responseText
    
    Dim statusData As Object
    Set statusData = html.getElementsByClassName("aaa")
    Do While statusData(0) = Empty
        DoEvents
    Loop
    Set getStatus = statusData
End Function

Sub aaa()
    Dim number As String
    number = Range("A2").Value
    
    Dim status As Object
    Set status = getStatus(number)
    
    Dim cnt As Long
    cnt = status.Length
        ・・・この先はエクセルへの出力処理

End Sub

試したこと・確認したこと

処理を外部化する前は、動いていました。上記コードの通り外部化すると、戻り値が取れなくてエラーになってしまいます。
End Functionでブレークポイント入れて、その時点ではstatusDataに欲しいデータは入っています。
cnt = status.Lengthでブレークポイント入れるとstatusの値はなにもない（nothingもemptyも空文字もなし）状態です。

補足情報

OS Microsoft Windows 10 Home
EXCEL　Microsoft Excel 2019 MSO (16.0.14326.20344) 32bit

Answer 1

こんにちは。

少し気になったのですが、そもそも戻そうとしているオブジェクトのstatusData　は　
Set html = CreateObject("htmlFile")
で、インスタンス化したhtml オブジェクトの一部ですが、
このhtml という変数がFunction の中でローカル変数として定義されているので
ファンクションを抜けたところで、htmlオブジェクトがなくなってしまい、結果
statusもデータが消えてるのではないでしょうか？

試しに、html 変数をfunction の外でpublic で宣言すると直ったりしませんか？

Comments

[junko12345]

回答ありがとうございます！できました！！
インスタンス化したオブジェクト。。。
そのあたりの基礎になる知識が不足しておりました。。
とても勉強になりました、ありがとうございます！

Answer 2

以下の部分ですが、

Do While statusData(0) = Empty
   DoEvents
Loop

以下にして試してみていただけないでしょうか？
statusData はオブジェクト変数なので、こちらでの判定のほうが良い気がします。

Do While statusData Is Nothing
   DoEvents
Loop

Comments

[junko12345]

ご回答ありがとうございます！
試してみましたが、結果は同じでした。。

Answer 3

Set status = getStatus(number)

ここにbreakpoint置いて、statusを確認してみては？

Comments

[junko12345]

早速ご回答ありがとうございます！
Set status = getStatus(number)
ここにbreakpoint置いてstatusを確認すると「empty」となっています。
functionの最後にbreakpointを置くと、functionの中の処理は実行されているのですが。。

[hex309]

確か、ブレークポイントだとその行の実行前だったかと。
その行の次に
Stop
といれて「status 」を確認してみてください。

[退会済みユーザー]

↑そのとおり
breakpointはこれから実行する命令で止まります

[junko12345]

>stop
ご指摘ありがとうございます！勉強になります！
stopを入れてbreakpointを置くと、statusの値はなにもない（nothingもemptyも空文字もなし）状態です。

[退会済みユーザー]

ということはまだ、取得処理が終わってないってことですね

[junko12345]

>取得処理が終わってない
sleepやApplication.waitで待つ、ということかと思って試しましたがダメでした。。認識違いでしょうか。。。

[退会済みユーザー]

Do While http.readyState < 4
これでチェックしているからOKそうですね
もしかして、そもそもhtmlが取得できていないのかも
http.responseText
の内容が正しいかチェックですね
関数化したのは無関係かもしれませんよ

[junko12345]

End Functionの時点ではデータは期待通りに取得できており、
外部化する前は期待通りの動作をしていたのです。。
外部化のやり方が悪いのか、何かの処理のタイミングが悪いのか、いろいろ調べてみたのですがわからず、の状態です。。