Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim theFile As String = 

        "{ --isso é um bloco;" & Environment.NewLine & "echo ""Aqui tem um } no meio"";}"

        Dim tmpBlocks() As String = theFile.Split({"{"}, StringSplitOptions.RemoveEmptyEntries)

        Dim Blocks As New List(Of String)

        For Each block As String In tmpBlocks

        Blocks.Add(block)

    Next

    For Each val As String In Blocks

        Console.WriteLine(val)

    Next

​

    End Sub

End Module