Wenn ich den Code so eingebe kriege ich eine Fehlermeldung "Subscript out of Range", die CSV Dateien die ich importieren will habe über 200 Zeilen wie kann ich das lösen code sieht so aus jetzt.

Private Sub CommandButtonimport_Click()
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
            .Filters.Clear
            .Title = "Select a CSV File"
            .Filters.Add "CSV", "*.csv", 1
            .AllowMultiSelect = False
            
        Dim sFile As String
        If .Show = True Then
            sFile = .SelectedItems(1)
        End If
        
        End With
        ' Import CSV from FileDialog
        If sFile <> "" Then
            Open sFile For Input As #1
                row_number = 0
                    Do Until EOF(1)
                    row_number = row_number + 1
                    Line Input #1, LineFromFile
                    LineItems = Split(LineFromFile, ",")
                    Application.Range("Range").Cells(row_number, 1).Value = LineItems(0)
                    Application.Range("Range").Cells(row_number, 2).Value = LineItems(1)
                    Application.Range("Range").Cells(row_number, 3).Value = LineItems(2)
                    Application.Range("Range").Cells(row_number, 4).Value = LineItems(3)
                Loop
             
            Close #1
        End If

End Sub