Private Sub Form_Click()    Dim c() As String    c = Split("A,B,C,D,E", ",")    For i = 0 To UBound(c)        Print c(i)    Next iEnd Sub

运行效果：

A

B

C

D

E

Private Sub Form_Click()    Dim c() As String    c = Split("A,B,C,D,E", ",", 1)    For i = 0 To UBound(c)        Print c(i)    Next iEnd Sub

运行效果：

A,B,C,D,E

Private Sub Form_Click()    Dim c() As String    c = Split("A,B,C,D,E", ",",2)    For i = 0 To UBound(c)        Print c(i)    Next iEnd Sub

运行效果：

A

B,C,D,E

Private Sub Form_Click()    Dim c() As String    c = Split("A,B,C,D,E", ",", 3)    For i = 0 To UBound(c)        Print c(i)    Next iEnd Sub

运行效果：

A

B

C,D,E

总结：第三位参数代表将原字符串截成多少组字符串