Access VisualBasic Script

Private Sub cmdImportFixed_Click()
    DoCmd.TransferText acImportFixed, "CompanyFixed", "tblCompanyFixed", "C:\CompanyFixed.txt", True
End Sub