Cacher is the code snippet organizer for pro developers

Private Function StripNonNumericsNoException(ByVal sInputStr As String) As String

   Dim iLength As Integer

   iLength = Len(sInputStr)
   While iLength > 0
      If IsNumeric(Left(Right(sInputStr, iLength), 1)) = False Then
         sInputStr = Replace(sInputStr, Left(Right(sInputStr, iLength), 1), "")
      End If
      iLength = iLength - 1
   Wend
   StripNonNumericsNoException = sInputStr

End Function