coming from this thread String Parsing
I was able to convert @Peter_SSs function code to an ordinary procedure. (thanks again @Peter_SSs )
Sub PetListII()
Dim RX As Object, M As Object, RXCtr As Integer
Dim K As Integer, ConfisKated As String, FullName As Variant, MaxNumero() As...