如何使用Excel VBA拆分函数将空字符串包含到数组中？

Function SplitStringToArray(ByVal str As String, ByVal delimiter As String) As Variant
    Dim arr() As String
    Dim i As Long
    
    If str <> "" Then
        arr = Split(str, delimiter)
        
        ReDim Preserve arr(LBound(arr) To UBound(arr) + 1)
        arr(UBound(arr)) = ""
    Else
        ReDim arr(0 To 0)
        arr(0) = ""
    End If
    
    SplitStringToArray = arr
End Function

Sub TestSplitStringToArray()
    Dim str As String
    Dim delimiter As String
    Dim arr() As Variant
    Dim i As Long
    
    ' 设置字符串和分隔符
    str = "John,Smith,,Anna"
    delimiter = ","
    
    ' 使用拆分函数将字符串拆分为数组
    arr = SplitStringToArray(str, delimiter)
    
    ' 循环遍历数组并输出
    For i = LBound(arr) To UBound(arr)
        MsgBox "Element " & i & ": " & arr(i)
    Next i
End Sub

Element 0: John
Element 1: Smith
Element 2: 
Element 3: Anna