This code is using to parse string :

Private Sub cmdParse_Click()

Dim colWords As Collection
Dim lngWordCount As Long
Dim lngCounter As Long

lstResults.Clear

Set colWords = ParseString(txtParse.Text)
lngWordCount = colWords.Count

For lngCounter = 1 To lngWordCount
lstResults.AddItem colWords.Item(lngCounter).Value
DoEvents
Next lngCounter

Set colWords = Nothing

End Sub