O código de exemplo tem uma linha ...
DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames
Basta adicionar sua especificação de importação a essa linha ...
DoCmd.TransferText acImportDelim,"GPS1" , strTable, strPathFile, blnHasFieldNames