OK i have done this
I copied & pasted your code into a module. This is my code,
Private Sub Command5_Click()
DoCmd.TransferText acImportFixed, "Import", "tblImport", GetTheOldestFile("\\capt_kirk\conversion\data\caa", "*.txt")
End Sub
When ever i try running it i get "Compile error, sub or...