Is it possible to Export and Rename the file extension in a sequenze? MS Access 2007

I have a Sub that works fine. Now I want to rename the file from the Subs name "Export.txt" to "Export.abv".The working Sub is shown here:

Sub PETER2()
On Error GoTo PETER2_test_Err
DoCmd.TransferText acExportDelim, "Export Exportspecifikation3", "Export", "C:\ftptest\Export.txt", True
PETER2_test_Exit:
Exit Sub
PETER2_test_Err:
      MsgBox Error$
      Resume PETER2_test_Exit
End Sub