For Each Split 運用

Private Sub Command1_Click()
Dim add_count As Integer
Dim a As String
a = "11,22,33"
add_count = 0
Dim b As Variant
For Each b In Split(a, ",")
    Print b
    add_count = add_count + 1
Next
Print add_count

End Sub
--
基本運用,靠自己發揮了~