Skip to content

Instantly share code, notes, and snippets.

Created Jul 26, 2021
What would you like to do?
Function RemoveText(str As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[^0-9]"
RemoveText = .Replace(str, "")
End With
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment