Remove the Spaces in a String without using Trim Functions

Remove the Spaces in a String without using Trim Functions

Dim str, newstr, arr

str ="Welcome to QTP World"

arr=split(str," " )

For i=lbound(arr) to ubound(arr)

newstr=newstr & arr(i)

Next

Msgbox newstr