Access VisualBasic Script

Sub main()     
     DoCmd.TransferText acImportDelim, "CompanyDelimited", "tblCompanyDelimited", _
           "C:\Delimited.txt", True
     MsgBox "Company details imported"
End Sub