Per VBA im Verzeichniss dateien mit Wildcard umbenennen

Ich habe mit Access 2010 eine Datenbank erstellt die aus Amazon Daten mit einigen Abfragen zur Übergabe eine Liste erstellt, die ich später in Excel in eine Steuertabelle exportiere.
Die Amazondaten werden im Downloadverzeichniss heruntergeladen als z.B.

C:\Users\Test\Downloads\ 2015Mär1-2015Mär31_CustomTransaction.csv und
C:\Users\Test\Downloads\report.txt

da sich die Datei ...Transaction.csv ständig ändert, möchte ich per VBA in meiner Datenbank vor dem einlesen automatisch die Datei im Pfad ändern.
also:
C:\Users\Test\Downloads\ Transaction.txt


Ich bin mit DoCmd.Rename C:\user\Test\Downloads\*.csv nicht zurecht gekommen.

auch keine Funktion mit:

Public Sub umbenennen()

Name "C:\Users\Test\Downloads\*.csv " As "C:\User\Test\*.txt"


End Sub

Es wäre schön, wenn mir jemand helfen könnte.(vielleicht mit Wildcard umbenennen \Pfad\*.csv auf \Pfad\Transaction.txt)
Vielen Dank im voraus
Udo

Set fso = CreateObject("Scripting.FileSystemObject")  
For Each f In fso.GetFolder("C:\user\Test\Downloads").Files  
     If LCase(fso.GetExtensionName(f.Name)) = "csv" Then  
        if fso.FileExists("C:\user\Test\Downloads\Transaction.txt") then fso.DeleteFile "C:\user\Test\Downloads\Transaction.txt",True  
	f.Name = "Transaction.txt"  
	Exit For
    End If
Next

Sub rename_file()
   Const FOLDER = "C:\Test"  
   Set fso = CreateObject("Scripting.FileSystemObject")  
   For Each f In fso.GetFolder("C:\test").Files  
	If LCase(fso.GetExtensionName(f.Name)) = "csv" Then  
                if fso.FileExists(FOLDER & "\Transaction.txt") then fso.DeleteFile FOLDER & "\Transaction.txt",True  
		fso.MoveFile f.Path, FOLDER & "\Transaction.txt"  
		Exit For
	End If
   Next
End Sub