Access VisualBasic Script

Sub text()
        DoCmd.TransferText acExportFixed, "CompanyFixed", "tblCompany", _
              "C:\Fixed.txt", True
        MsgBox "Company details exported"
End Sub