Imports System

Imports System.Text.RegularExpressions

​

Public Class Program

​

    Public Shared Sub Main()

        Dim original As String = "aaaaaaaaaa""aaaa""aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa""aaaaaaaaaa""aaaaaaaaaaaaa"

        For Each match As Match In Regex.Matches(original, """[A-z].*?""", RegexOptions.IgnoreCase)

            Dim valorEncontrado As String = match.Value.Replace("""", String.Empty)

            Dim novoValor As String = New String("b"c, valorEncontrado.Length)

            original = original.Replace(match.Value, """" + novoValor + """")

        Next

​

        Console.WriteLine(original)

    End Sub

End Class

​