Hvorfor kan den ikke splitte

Jeg har følgende kode!

Jeg kan ikke se hvad jeg har gjort forkert, men på debug tidspunktet får jeg fejlmeddelsen, at s_arrray ikke kan assignes med split

Private Sub ReadFile(file As String, a_b As Boolean)
    ' hvis a_b er sand er det fil 1, ellers fil 2
    Dim lineinfo As String
    Dim s_array(1 To 10) As Variant
    Open file For Input As #1
    Do While Not EOF(1)
        Line Input #1, lineinfo
        s_array = split(lineinfo, vbTab)
    Loop
End Sub