Dim result As String = Regex.Replace(source, "\w+", Function(m) m.Value(0) & StrDup(m.Length - 1, "●"c))