Imports System.Text.RegularExpressions

Imports System.Collections.Generic

Imports System

Imports System.Linq

​

Public Module Module1

​

    Public Function ExtrairBlocos(ByVal texto As String) As List(Of String)

        Dim blocos As List(Of String)

        blocos = Regex.Split(texto, "(""[^""]*""|\s+)").ToList()

        blocos.RemoveAll(Function(bloco) String.IsNullOrWhiteSpace(bloco))

        Return blocos

    End Function

​

    Sub Main()

        Dim texto As String = "if ""esse campo tem espaços"" = true"

        Dim blocos As New List(Of String)

        blocos = ExtrairBlocos(texto)

​

        For Each bloco As String In blocos

            Console.WriteLine("{0}", bloco)

        Next

        Console.ReadLine()

    End Sub

​

End Module

​