Eftersom strängen "$1" endast är två tecken lång så blir den just två tecken när du kör Left(..., 20).
Testa det här:
.Pattern="\[www\]([\w\W]*?)\[/www\]"
Innlegg=.Replace(Innlegg,"<a href=""http://$1"" title=""$1"">$1</a>")
.Pattern = "(<a [^>]+>)([\s\S]{35}?)([\s\S]+?)([\s\S]{15}?)(</a>)"
Innlegg = .Replace(Innlegg, "$1$2...$4$5")
Mitt tillägg matchar alla länkar. Den härmar wF's länkkortningsfunktion. 35 är antalet tecken innan "..." och 15 är antalet tecken efter. Går att konfigurera som du vill ha det. Men är trevligt att både visa början och slutet av URL:en.
Och snälla sluta blanda "svenska" och engelska i koden. Skriv endast på engelska.