It's a problem testing without doing a bit of development and I'm strapped for time, so I'll rewrite your solution instead...
Create a module and enter the following:
Public Function BravisImport()
DoCmd.TransferText acImportDelim, "Bravis Importspecifikation", "Bravis import"...