怎样使VB自动分割带逗号的字符串？

dim s as Variant
dim str as String
str="1,2,3,4,5"
s=split(str,",")
这样就可以了，s(0)=1,s(1)=2...
查看下split函数的帮助就知道了
另外对应的join函数可以吧数组中的值连接起来
str=join(s,",")

Private Sub Form_Load()
Dim ss(1 To 5)
Dim j As Integer
Dim s As String
s = "1,2,3,4,5"
j = 1
For i = 1 To Len(s)
If Mid(s, i, 1) <> "," Then
ss(j) = Mid(s, i, 1)
j = j + 1
End If
Next i
For i = 1 To 5
MsgBox ss(i)
Next i
End Sub