what is the best way to parse out items in a textbox?

i need to capture all the values between []

example:

Hello [name]

Blah blah blah [place]

Thank you.
[user]



This is what i'm trying with no luck
Code:
        Dim sMsgBody As String = Me.TextBox1.Text
        Dim split As String() = sMsgBody.Split(New [Char]() {"["c, "]"c})

        Dim s As String
        For Each s In split
            If s.Trim() <> "" Then

                Console.WriteLine(s)

            End If
        Next s