Private Function PurgeNumericInput(StringVal As Variant) As Variant
On Local Error Resume Next
Dim x As Integer
Dim WorkString As String
If Len(Trim(StringVal)) = 0 Then Exit Function
For x = 1 To Len(StringVal)
Select Case Mid(StringVal, x, 1)
Case "0" To "9"
WorkString =...