Without Using Split Function

x="hi  wel come"
For i=1 to len(x)
c=mid(x,i,1)
If c<>empty Then
b=b&c
End If
If c=" " Then
print b
b=""
End If
Next
print b