Imports System.Text.RegularExpressions
Imports System
 
Module Module1
 
    Sub Main()
        Dim texto As String = "if ""esse campo tem espaços"" = true"
        Dim blocos() As String = Regex.Split(texto, "(""[^""]*""|\s+)")
 
        For Each bloco As String In blocos
            If Not String.IsNullOrWhiteSpace(bloco) Then
                Console.WriteLine("{0}", bloco)
            End If
        Next
        Console.ReadLine()
    End Sub
 
End Module
 

SW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKSW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBNb2R1bGUxCgogICAgU3ViIE1haW4oKQogICAgICAgIERpbSB0ZXh0byBBcyBTdHJpbmcgPSAiaWYgIiJlc3NlIGNhbXBvIHRlbSBlc3Bhw6dvcyIiID0gdHJ1ZSIKICAgICAgICBEaW0gYmxvY29zKCkgQXMgU3RyaW5nID0gUmVnZXguU3BsaXQodGV4dG8sICIoIiJbXiIiXSoiInxccyspIikKCiAgICAgICAgRm9yIEVhY2ggYmxvY28gQXMgU3RyaW5nIEluIGJsb2NvcwogICAgICAgICAgICBJZiBOb3QgU3RyaW5nLklzTnVsbE9yV2hpdGVTcGFjZShibG9jbykgVGhlbgogICAgICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoInswfSIsIGJsb2NvKQogICAgICAgICAgICBFbmQgSWYKICAgICAgICBOZXh0CiAgICAgICAgQ29uc29sZS5SZWFkTGluZSgpCiAgICBFbmQgU3ViCgpFbmQgTW9kdWxlCg==