如何在vba中将字符串拆分成二维数组？

Sub SplitStringInto2DArray()
    Dim inputString As String
    Dim splitArray() As String
    Dim splitArray2D() As Variant
    Dim i As Long, j As Long
    
    ' 输入字符串
    inputString = "1,2,3;4,5,6;7,8,9"
    
    ' 第一次拆分，按分号拆分为一维数组
    splitArray = Split(inputString, ";")
    
    ' 初始化二维数组
    ReDim splitArray2D(1 To UBound(splitArray) + 1, 1 To 3)
    
    ' 第二次拆分，按逗号拆分为二维数组
    For i = 0 To UBound(splitArray)
        splitArray2D(i + 1, 1 To 3) = Split(splitArray(i), ",")
    Next i
    
    ' 输出结果
    For i = 1 To UBound(splitArray2D, 1)
        For j = 1 To UBound(splitArray2D, 2)
            Debug.Print splitArray2D(i, j)
        Next j
    Next i
End Sub