Problem Getting Strings

Hey, so i'm working on a little program where you copy and paste the source of another program and it takes all the strings from the program and then appends them to a textbox.

Here was my original code:

Dim r As New Regex(""".*""")
Dim sS As MatchCollection = r.Matches(textbox1.text)
For Each s As Match In sS
Textbox2.text &= s.Value
Next

Issue is that i need it to not only work with quotes inside of a string (double quotes) and it keeps on missing strings.