>>173
Dim str As String = "<a href="".."">松井玲奈</a>と" + vbNewLine + _
"<a href="".."">仁藤萌乃</a>が" + vbNewLine + _
"<a href="".."">大好き</a>です"

Dim result As String = Regex.Replace(str, "<a[^>]*>(?!.*<a[^>]*>)(.*?)</a>", New MatchEvaluator(Function(m As Match) m.Groups(1).Value))
result = result.Replace(vbNewLine, String.Empty)
Console.WriteLine(result)