Kalde array fra Function

Hejsa.
Jeg får en underlig fejl når jeg afvikler nedenstående kode i en .vbs fil.

Dim strFileName, arrUsers

strFileName = "test.csv"
arrUsers = ReadCSV(strFileName)

For Each intItem In arrUsers
    'intCounter = intCounter + 1
    MsgBox intItem
Next

' ****************************************************************************
' ReadCSV - Læser fra en CSV fil og returnerer et array med indholdet
' ****************************************************************************
Function ReadCSV(strFileName)
    Dim objFSO, objTextFile, intCounter, arrUsers
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile("test.csv")
   
    intCounter = 0
    Do Until objTextFile.AtEndOfStream
          arrUsers(intCounter) = split(objTextFile.ReadLine,",")
          intCounter = intCounter + 1
    Loop
   
    objTextFile.Close
    Set objTextFile = Nothing
    Set objFSO = Nothing
   
    ReadCSV = arrUsers
End Function

Jeg får en fejl om at typerne ikke stemmer overens og formoder at det har noget at gøre med at jeg ikke har givet mit aray en fast størrelse.
Men jeg vil imidlertid gerne instantiere det direkte fra min funktion, uden at skulle give det en fast størrelse og herefter lave en ReDim eller ligende.

Hvad kan jeg gøre for at få dette til at virke. Det jeg vil lave er, at der læses fra en .csv fil, her lægges data over i mit array, hvorefter dette array sættes lig med et nyt arrUsers array.
Jeg skal så herefter finde ud af hvordan jeg lægger de komma-sepererede værdier over i et array for hver værdi og herefter kan arbejde med disse data.