Dim desen As Regex = New Regex(@"(^[0-9]{5})([\w+\s+\D+\d+\W+\/]{15})([\w+\s+\D+\d+\W+\/]{15})([\w+\s+\D+\d+\W+]{11})([\w+\s+\D+\d+\W+]{10})([\w+\s+\D+\d+\W+]{10})([\w+\s+\D+\d+\W+]{3})([\w+\s+\D+\d+\W+]{8})([\w+\s+\D+\d+\W+]{4})([\w+\s+\D+\d+\W+]{20})([\w+\s+\D+\d+\W+]{4})([\w+\s+\D+\d+\W+]{8})([\w+\s+\D+\d+\W+]{6})([\w+\s+\D+\d+\W+]{5})([\w+\s+\D+\d+\W+]{7})([\w+\s+\D+\d+\W+]{5})([\w+\s+\D+\d+\W+]{5})([\w+\s+\D+\d+\W+]{8})([\w+\s+\D+\d+\W+]{8})$", opt)
        Dim regexresult As RegularExpressions.MatchCollection = desen.Matches(mystr)