Dim R as Regex = New Regex("\d+\w+") 'Compile the pattern. Dim M as Match = R.Match(SampleText) 'Check against a string. ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl