[VB6] - separar as palavras para 1 array

[cambalinho 0]

eu ando a separar as palavras para 1 array de strings. o split() é limitado porque tens de escolher o delimitador e só podes usar 1 unico:(

mas eu queria separar esta linha para 1 string array:

 

int soma(int a, int b )

 

nota os parenteses tambem ficam separados como 1 palavra.

 

Public Function ExtendedSplit(ByVal Sentence As String) As String()
    Dim lngSentencePos As Long
    Dim lngStartWord As Long
    Dim strWord() As String
    Dim lngWordIndex As Long
    
    For lngSentencePos = 1 To Len(Sentence)
        If Mid(Sentence, lngSentencePos, 1) <> "" And lngStartWord = 0 Then
            lngStartWord = lngSentencePos
        End If
        If Mid(Sentence, lngSentencePos, 1) = " " Or Mid(Sentence, lngSentencePos, 1) = "(" Or Mid(Sentence, lngSentencePos, 1) = "(" Or Mid(Sentence, lngSentencePos, 1) = "=" Or Mid(Sentence, lngSentencePos, 1) = "+" Or Mid(Sentence, lngSentencePos, 1) = """" And lngStartWord <> 0 Then
           ReDim strWord(lngWordIndex + 1)
           strWord(lngWordIndex) = Mid(Sentence, lngStartWord, lngSentencePos)
           lngStartWord = 0
        End If
    Next lngSentencePos
        
    
    ExtendedSplit = strWord()
End Function

o problema é que só estou a receber o primeiro index:(

alguem me pode explicar o que fiz mal neste codigo?

[KhaosDoctor 242]

Você quer separar qual palavra?