Hallo, (Excel gut - VBA etwas)

ich möchte über ein Makro eine csv-Datei so öffnen, dass sie den durch Semikolon getrennten Text gleich in Spalten aufteilt.
In Excel geht das manuell ganz einfach, indem man eine leere Exceldatei aufmacht und dann über Datei öffnen die entsprechende csv-Datei öffnet.
Diese csv-Datei ist dann gleich im "Excelformat" und der Text liegt gleich spaltenweise aufgeteilt vor.

Nun dasselbe in VBA:

Dim D As String
' Datei öffnen
D = Application.GetOpenFilename _
(" Textdateien (*.prn; *.txt; *.csv),prn, *txt, *.csv")
Workbooks.Open FileName:=D, Format:=4


funktioniert bis auf das Excelformat, die Datei wird mit Semikolons als Trennzeichen geöffnet, was ich vermeiden möchte.

Was mache ich (noch) falsch?

Gruß Hermann