dim pm as object
dim newdoc as object
dim newsheet as object
dim fn, fn1 as string
dim files(3) as string
Curpath=curdir()
files(1)=curpath &"\19_CD1_tracks."
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = true
fn=files(1) & "csv"
fn1=files(1) & "xlsx"
kill fn1
pm.workbooks.open fn,false,pmFormatPlainTextUnicode,"","",";",pmImportTextMarkernone
' 2 Alternativen
pm.activeworkbook.save 
' pm.activeworkbook.saveas fn1,pmformatmsxml
pm.quit
set pm = Nothing