Dim AlphaOnly As String = System.Text.RegularExpressions.Regex.Replace(Phrase.ToUpper, "[^a-zA-Z]*", "") Dim NumbersOnly As String = System.Text.RegularExpressions.Regex.Replace("(1234)-add-45d", "[^0-9]*", "")