Function AllDigits(s)
AllDigits = s Like String(Len(s), "#")
End Function

Thanks Rick. I totally forgot about that. :~
Thanks for the catch.

Dana DeLouis



On 2/10/2010 11:01 PM, Rick Rothstein wrote:
Function AllDigits(s)
AllDigits = s Like WorksheetFunction.Rept("[0-9]", Len(s))
End Function

Noting that you can use the # sign in place of [0-9] when searching for
digits, you do not have to call out to the Worksheet to use its REPT
function... VB has the String function that you can use instead.

Function AllDigits(s)
AllDigits = s Like String(Len(s), "#")
End Function

If, however, you are more used to using [0-9] instead of the # sign and
want to continue doing so, you can still do this using native VB
functions only...

Function AllDigits(s)
AllDigits = s Like Replace(String(Len(s), "x"), "x", "[0-9]")
End Function

where you can use any character in place of the "x" characters I used.
Because of this, we can simplify this code by using a space instead of
the "x" and then noting that VB has a Space function which returns the
number of space specified in its argument...

Function AllDigits(s)
AllDigits = s Like Replace(Space(Len(s)), " ", "[0-9]")
End Function



--
= = = = = = =
HTH :)
Dana DeLouis