有没有一个简单的VBA代码可以使用Split()函数来获取组合框的值列表，该组合框最初是来自文本框的字符串？

Sub GetComboBoxValues()
    Dim str As String
    Dim values() As String
    Dim i As Integer
    
    ' 假设组合框的值来自名为TextBox1的文本框
    str = TextBox1.Value
    
    ' 使用Split()函数将字符串分割成字符串数组
    values = Split(str, ",")
    
    ' 遍历字符串数组并输出每个值
    For i = LBound(values) To UBound(values)
        Debug.Print values(i)
    Next i
End Sub