VBA报错，错误的参数号或无效的属性赋值

Option Explicit
Sub ImportTXTFiles()
    Dim filePaths() As String
    Dim ws As Worksheet
    Dim fileName As String
    Dim fileContent As String
    Dim lineArray() As String
    Dim i As Integer

    ' 弹窗选择多个TXT文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "请选择要导入的TXT文件"
        .Filters.Clear
        .Filters.Add "TXT文件", "*.txt"
        .AllowMultiSelect = True
        .Show
        If .SelectedItems.Count > 0 Then
            ReDim filePaths(1 To .SelectedItems.Count)
            For i = 1 To .SelectedItems.Count
                filePaths(i) = .SelectedItems(i)
            Next i
        Else
            Exit Sub
        End If
    End With

    ' 遍历每个选择的文件
    For i = LBound(filePaths) To UBound(filePaths)
        ' 获取文件名（不包含扩展名）
        fileName = Left(Dir(filePaths(i)), Len(Dir(filePaths(i))) - 4)
        ' 读取文件内容
        Open filePaths(i) For Input As #1
        fileContent = Input$(LOF(1), 1)
        Close #1
        ' 对文件内容进行处理（示例）
        lineArray = Split(fileContent, vbCrLf)
        ' 执行其他操作...
    Next i
End Sub