문자열을 나누는 함수를 작성하는것이 어려운것인가요?

Function spritStr(str As String, list As Variant)
'잘게 나누어진 단어를 채울 동적 배열
Dim sprite() As Variant
Dim s As String
 
ReDim sprite(0)
s = str
Trim (s)
 
Dim char As String
Dim indexA As Integer, indexB As Integer
'단어의 시작 위치, 끝 위치
indexA = 0
indexB = 0
 
Dim i As Integer
 
Do While (True)
    If (indexB + 1 >= Len(str)) Then Exit Do
 
    For i = indexB + 1 To Len(str)
        char = Mid(s, i, 1)
        If (isSeparator(char, list) = False) Then indexA = i: Exit For
    Next i
 
    If (indexA + 1 >= Len(str)) Then
        If indexA > indexB Then indexB = indexA
        Exit Do
    End If
 
    For i = indexA + 1 To Len(str)
        char = Mid(s, i, 1)
        If (isSeparator(char, list) = True) Then indexB = i - 1: Exit For
    Next i
 
    Dim upper As Integer
    upper = UBound(sprite) + 1
    ReDim Preserve sprite(upper)
    upper = UBound(sprite)
    sprite(upper) = Mid(s, indexA, indexB - indexA + 1)
 
Loop
 
'배열을 리턴
spritStr = sprite
Exit Function
 
End Function