<pre>

' Basic RANGE CONSTRUCTION constants
Public Const strcRangeSeparator As String = "-" ' LIKE range separator
' Elements for DIGITS
Public Const strcLowDigit As String = "0"
Public Const strcHighDigit As String = "9"
Public Const strcDigitsRange As String = strcLowDigit & strcRangeSeparator & strcHighDigit



Public Function strDigitsOnly(strIN As String) As String
' Procedure : strDigitsOnly
' Description: This code returns only decimal digit characters of strIn.
' Copyright: Chris Greaves Inc.
' Inputs: A data string.
' Returns: STRING.
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.
' Posted in Woody's Lounge VBA forum
strDigitsOnly = strOnly(strIN, StrcDigits)
'Sub TESTstrDigitsOnly()
'MsgBox strDigitsOnly("alphabet") ' regular use
'MsgBox strDigitsOnly("") ' empty source string
'MsgBox strDigitsOnly("416-621-9348") ' strip digits
'End Sub
End Function
</pre>