Excel VBA Split関数で空文字を読み込んだ場合に値が代入されていないことを判定するには

Question

どうすれば良いでしょうか。
通常は区切り文字で配列になりますが、
空文字をSplit関数で読み取った場合、
VBEのローカルウィンドウのstrには<変数なし>と表示されます。
isNull(str) / isEmpty(str) では判定できませんでした。
よろしくお願いします。

Sub test()
    Dim str1 As String
    str1 = ""
    Dim str() As String
    str = Split(str1, ",")
End Sub

Answer 1

Split()を使用するという事は配列分割して要素ごとに何かの処理をするんでしょうから、For Each使うのが効率的だと思います。

Sub test()
    Dim str1 As String
    Dim itm As Variant
    str1 = ""
    For Each itm In split(str1,",")
　     MsgBox itm
    Next
End Sub

Comments

[nkym771]

ありがとうございます。

Answer 2

If UBound(str)=-1 Thenで判定できます。

というか、
If str1="" Thenでもいいのでは。

Comments

[nkym771]

ありがとうございます。

Answer 3

UBound(str) - LBound(str) + 1で配列の数を調べて結果が0なら空文字です(区切り文字以外の文字列だけが入ってたら1)

Comments

[nkym771]

ありがとうございます。
Ubound(str)=-1
Lbound(str)=0
となり判定できました。