[VBA] Split String And Trim Space

Public Function SplitStrIntoArray(str As String, separator As String) As Variant
    Dim Arr As Variant
    
    If Len(str) > 0 Then
        Arr = Split(str, separator)
        
        Dim i As Integer
        
        For i = 0 To UBound(Arr)
            Arr(i) = Trim(Arr(i))
        Next i
    Else
        Arr = Array()
    End If
    
    SplitStrIntoArray = Arr
    
End Function