Thanks PHV. Someone has advised the similar way:
Dim regEx, strRegularExpression, strInitialString, strResult, colMatches, strMatch
strInitialString="186255w,186254L,PRDCTX140,PRDCTX141,196278L,PRDCTX146,PRDCTX241,"
strRegularExpression="\d{5,6}(w|W|l|L),"
Set regEx = New RegExp
regEx.Pattern...