|
Dim strString
Dim i
strString = "my phone number is 0123456789"
for i = 1 to len(strString)
if isNumeric(mid(strString, i 1)) then
strString = replace(strString, mid(strString, i 1), "x")
end if
next
---------------------------------------------------------
out put should be: my phone number is xxxxxxxxxx
|