vb字符串搜索中文名字

[lipeng08]

现在有个string 李明，王亮，张龙，高峰，赵华
请问怎么才能得出上面的字符串的名字的个数而且将名字逐个赋给字符串数组

[fvflove]

Const conString = "李明，王亮，张龙，高峰，赵华"
Private Sub Command1_Click()
  Dim Data() As String
  Dim i As Single
  Data = Split(conString, "，")
  
  For i = 0 To UBound(Data)
    MsgBox Data(i)
  Next
End Sub

[lipeng08]

很感谢你，呵呵，那么强。我都抠了半天了，也想不出来怎么办