Access VisualBasic Script

Sub import()
     DoCmd.TransferText acImportFixed, "CompanyFixed", "tblCompanyFixed", _
           "C:\Fixed.txt", True
     MsgBox "Company details imported"
End Sub