Access VisualBasic Script

Sub export()
     DoCmd.TransferText acExportDelim, "CompanyDelimited", "tblCompany", _
           "C:\Delimited.txt", True
     MsgBox "Company details exported"
End Sub