Public Function NoControl( stIN as String) as String
Dim stWork as String
Dim stChr as String
Dim lPos as Long
lf Len(stIN) = 0 Then
NoControl = ""
Else
stWork = ""
For lPos = 1 to Len(stIn)
stChr = Mid( stIn, lPos, 1 )
If Asc( stChr ) Between 32 And 126 Then 'NOTE: Between...And is INCLUSIVE of the limits.
stWork = stWork & stChr
[COLOR="Blue"] Else
stWork = stWork & " "
[/COLOR] End if
Next lPos
NoControl = stWork
End If
End Function