Abundant Technologies - IT Consulting Experts

 Source Code Library

 Code Details

 
Public Function CleanNumber(ByVal strValue As String) As String Dim i As Int16 CleanNumber = "" For i = 0 To strValue.Length - 1 If IsNumeric(strValue.Substring(i, 1)) Then CleanNumber += strValue.Substring(i, 1) End If Next End Function

Mail To: info@3pc.com