Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function StripChar(aText As String)
- Dim I As Integer
- StripChar = ""
- For I = 1 To Len(aText)
- aChar = Mid(aText, I, 1)
- Select Case aChar
- Case "0" To "9"
- StripChar = StripChar & aChar
- End Select
- Next
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement