Pb de modification extention

Bonjour je souhaiterai modifier l'extention de certain=20
fichier tout en conservant leur nom pour cela j'ai le code:

Private Sub Commande67_Click()
Dim Nom, NewNom, B
Dim A, i As Integer
Nom =3D "*.log"
NewNom =3D "P:\Methodes\Stagiaires\Romain S\Log\*.txt"
With Application.FileSearch
.NewSearch
.LookIn =3D "P:\Methodes\Stagiaires\Romain S\Log"
.FileName =3D Nom
If .Execute() > 0 Then
For A =3D 1 To .FoundFiles.Count
B =3D .FoundFiles(A)
Name B As NewNom
Next A
End If
End With
End Sub

Le probl=E8me =E9tant qu'il y a unique ment un fichier qui se=20
retrouvent modifier si je remplace "*.txt" par "A.txt" A=20
variant de 1 au nbre de fichier trouv=E9s car le fichier=20
cr=E9=E9 sera A.txt hors je souhaiterai que tous les fichiers=20
trouv=E9s soient modifi=E9s tout en gardant leur nom par=20
exemple le groupe :

20092003.log > < 20092003.txt
21092003.log > Devient < 21092003.txt
22092003.log > < 22092003.txt

Merci d'avance.