Dim All As New Collection
j = 0
k = 1
Do Until k = 0
If j <> 0 Then k = InStr(j, txt, " ") Else k = InStr(txt, " ")
If k = 0 Then GoTo getout
n = InStr(k + 1, txt, " ") - k - 1
k = k + 1
All.Add Mid(txt, k, n)
j = k + n + 1
getout:
Loop
-anyone know my problem? <the code's a bit clumsy>
Question
anthonycara
I've tried, but my code isnt working!
-anyone know my problem? <the code's a bit clumsy>
Link to comment
Share on other sites
4 answers to this question
Recommended Posts