aşağıdaki kodu kullanarak gelen veri içindeki url adreslerini link yapıyorum ama $2 yazan bölümde çıkan sonuca Left($2,20) yapmak istiyorum ama sorun çıkarıyor bunu nasıl aşabilirim.

Function zz(byVal strVeri)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "\[(link)\](.+?)\[\/\1\]"
zz = objReg.Replace(strVeri, "<a>$2</a>")
Set objReg = Nothing
End Function