s = "the cat sat on the mat"
a = Split(s, " ")
s2 = ""
For i = 0 To UBound(a)
s2 = s2 & CStr(i) & String(CInt(Len(a(i)) - (Len(i) - 1)), " ")
Next
Debug.Print s
Debug.Print s2
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.