Error 75 al abrir varios text files

[pkj]

Ya que tanto empeño tienes te he buscado la solucion y así tambien la tendré yo.

Código vb:

Dim sFile() As String
 
  With CD1
    .InitDir = "C:\Windows"                         '
    .FileName = vbNullString                        'Clear out previous filename(s)
    .Filter = "All Files (*.*)|*.*" 'Set the input mask
    .FilterIndex = 1                                'Set index of filter
    'Must have explorer flag with multiselect flag!!!
    .Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNAllowMultiselect Or cdlOFNExplorer
    .DialogTitle = "Import Files"                  'Set caption of CD
    .CancelError = True                             'Die if there are any errors
    .MaxFileSize = 30000                            'Just to make sure we have enough room
    On Error Resume Next
    .ShowOpen                'Open
    
    Select Case Err.Number
      Case cdlCancel
        'Cancel was selected
        Exit Sub
      Case Is <> 0
        'Some other error occurred
        Exit Sub
      Case 0
        'No error occured
         sFile = Split(.FileName, ChrW$(0))              'Take apart null delimited list returned from multiselect CD
     End Select
     On Error GoTo 0
  End With
  
  If UBound(sFile) > 0 Then
    Dim f As Integer
    For f = 1 To UBound(sFile)
      MsgBox sFile(0) & sFile(f)
    Next f
  Else
    MsgBox sFile(0)
  End If
 

No sé donde tuve yo el problema, ya que parece facil, pero el caso es que me cansé y lo dejé.

Saludos