[VB6] - separar as palavras para 1 array

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?