01.Dim user As String
02. Dim iRow As Integer
03. Dim var As New ArrayList
04. Dim msg As String
05. user = "aaa bbb : cccc : ddddd : eeee uuuu : gggggg"
06.
07. iRow = user.IndexOf(" : ")
08. While iRow > 0
09. var.Add(Trim(Mid(user, 1, iRow)))
10. user = Trim(Mid(user, iRow + 3))
11. iRow = user.IndexOf(" : ")
12. If iRow = -1 Then var.Add(Trim(user))
13.
14. End While
15.
16. For iRow = 0 To var.Count - 1
17. msg &= var.Item(iRow) & vbLf
18. Next
19.
20. MessageBox.Show(msg)
