Einlesen einer csv-Text-Datendatei

[Bernd]

Hallo, vielleicht kann doch jemand helfen,

das Einlesen einer Excel-csv-Datendatei mit all den ganzen Einstellungen soll über ein Button mit dahinterliegendem Macro ausgelöst werden. Mit dem unten angeführten Makro kann die Datei frei ausgewählt werden, alles ohne Fehlermeldung bis auf die letzte Zeile des Einlesens.
Hier wird die Datei trotz sauber übergebenem Pfad nicht gefunden, Fehlermeldung Excel "...Datei kann nicht gefunden werden...". Kann hier leider keine csv-Datei zum Probieren angehängen, aber in der Zeile ...QueryTables.Add ... wird der Pfad strFilePath nicht übernommen(?).
Kann mir jemand helfen?
-------------------------
Makro:
Sub Einlesen()
Dim strFilePath As String

   With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Add "CSV-Dateien", "*.csv"
       If .Show = -1 Then
          strFilePath = .SelectedItems(1)
          Cells(1, 1) = strFilePath ' => Kontrollausgabe
          Cells(2, 1).Select
       End If
   End With
   With ActiveSheet.QueryTables.Add(Connection:="Text;strFilePath", Destination:=Range("$B$2"))
        .Name = "strFilePath"
        '
        '  die Einzeleinstellungen sind hier herausgenommen
        '
        .Refresh BackgroundQuery:=False
   End With
End Sub
-------------------------
Gruß
Bernd