array problem - subscript out of range

jeg har et array jeg ved ikke er tomt men når jeg laver ubound(mitArr()) så siger den subscript out of range
koden kommer her

Open Form1.txtFileToOpen.Text For Input As #1
        LinesFromFile = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
   
    lArr = Split(LinesFromFile, vbCrLf)
    MsgBox (UBound(lArr()))

det skal lige siges der er cirka 10500 linier i den tekstfil jeg åbner