Access VisualBasic Script

Private Sub cmdImportDelimited_Click()
    DoCmd.TransferText acImportDelim, "CompanyDelimited", "tblCompanyDelimited", "C:\Delimited.txt", True
End Sub