Similarly,

cn=portal.090710.191533.428571000,cn=groups,dc=mp, dc=rj,dc=gov,dc=br

startPos = 4
charCount = 33

Print Mid$(MyString,startPos,charCount)