Что ж, после стольких попыток и неудач я придумал следующий код, и он работал, это vb.net BTW.
Public Function BBCode(ByVal strTextToReplace As String) As String
Dim regExp As Regex
strTextToReplace = strTextToReplace.Replace(Chr(10), "<br />")
regExp = New Regex("\[code\]([^\]]+)\[\/code\]", RegexOptions.Singleline)
Dim mc As MatchCollection = regExp.Matches(strTextToReplace)
For Each m As Match In mc
Dim gs = m.Groups()
strTextToReplace = regExp.Replace(strTextToReplace, "<table cellpadding=""2"" cellspacing=""0"" class=""tbl_Quote""><tr><td dir=""rtl""><a class=""quote_Head"">code:</a></td></tr><tr><td><textarea class=""lined"" cols=""77"" readonly=""readonly"" rows=""1"" spellcheck=""false"">" & gs(1).Value.ToString.Replace("<br />", Chr(10)) & "</textarea></td></tr></table>", 1)
Next
Return strTextToReplace
End Function
Надеюсь, это поможет кому-то еще.