J -  Линда Кайе
L - Линда Кайе

А сей дневник разве не платный уже?

Private Function ParseJs(ByVal TXT As BStr) As BStr
  Dim RE As New RegExp
  Dim MC As MatchCollection
  Dim TMP As Long
  Dim NewTXT As BStr
  Dim Ptr As Long
  
  ' Вопрос в конце ограничивает поиск наименьшим значением. Тоесть
  ' если в одной строке будут два соввпадения, выберутся оба, а не
  ' один их включающий. L.P.M., я тебя не забуду ^_^
  RE.Pattern = "\[J\](.*?)\[/J\]"
  RE.MultiLine = False
  RE.Global = True
  RE.IgnoreCase = True
  
  ' $1 - это ссылка на первый submatch ^^
  Const RPL = "" & _
              "" & _
              "$1"
  
  ParseJs = RE.Replace(TXT, RPL)
End Function