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==