这个数据串如何提取

这个数据串怎么提取？
各位大侠：
　　我有一串数据，如：1,100,53318.52,31360.04,25.047，用哪个函数能逐一提取？

[解决办法]
用Split函数可以

Private Sub Command1_Click()
Dim s As String
Dim A() As String
Dim i As Integer

s = "1,100,53318.52,31360.04,25.047 "
A = Split(s, ", ")
For i = LBound(A) To UBound(A)
Debug.Print A(i)
Next i
End Sub