Jag är inte jätteduktig på VB, men jag tycker att det borde se ut såhär:
Kod:
.Pattern = "[\n]"
Set objMatches = .Execute(strNewText)
iCount = 0
For Each objMatch In objMatches
iCount = iCount + 1
strNewText = .Replace(strNewText,"<br />"&iCount&". ")
Next