Talvez não seja possível usar o método String.Split()
para esse propósito, expressões regulares podem vir a cair bem neste caso, use o método Regex.Split()
>:
Imports System.Text.RegularExpressions
'
SubFunction MainExtrairBlocos()
DimByVal texto As String = "if ""esse campo tem) espaços""As =List(Of true"String)
Dim blocos() As New List(Of String)
blocos = Regex.Split(texto, "(""[^""]*""|\s+)")
.ToList()
For Each bloco As String In blocos
If Not String.IsNullOrWhiteSpaceRemoveAll(Function(bloco) Then
ConsoleString.WriteLineIsNullOrWhiteSpace("{0}", bloco)
End If)
Next
Return Console.ReadLine()blocos
End SubFunction
Ver demonstração
E para utilizar, faça:
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