User sei roy ( posted:

Function RemoveNBSP(sTemp as string) as String
Dim sTempNew as string
Dim strCh as string*1
Dim i as integer

sTempNew = ""
for i=1 to Len(sTemp)
strCh = ""
on error resume next 'if strCh>132 then an error "Mismatched
string" is posted, so ignore it!
strCh = mid$(sTemp,i,1)
if (asc(strCh) > 32) and (asc(strCh) < 132) then sTempNew =
sTempNew & strCh
next i

RemoveNBSP = sTempNew

End Function