08-12-2019, 04:47 PM
Dim str
str=" Quick test professional"
x=Split(str," ")
For i=1 To UBound(x) Step 1
y = y&x(i)
Next
MsgBox y
str=" Quick test professional"
x=Split(str," ")
For i=1 To UBound(x) Step 1
y = y&x(i)
Next
MsgBox y