Sub ExtractDigits($s As String) As String


Extracts all digits from $s.


Parameters


  • $s ... String expression from which digits are extracted.


Example:

Dim $s, $s2

$s = "This is number 22.3"
$s2 = ExtractDigits($s)
' returns $s2 = "223"