VBA programlama dilinde dosyaların uzantısını değiştirmek için aşağıdaki kod kullanılabilir.

Sub dosya_uzantisi_degistir()
  Dim dosya_yolu As String
  Dim eski_dosya_adi As String
  Dim yeni_dosya_adi As String
  dosya_yolu = "C:\dosyalar\"
  eski_dosya_adi = "dosya.txt"
  yeni_dosya_adi = "dosya.xlsx"
  Name dosya_yolu & eski_dosya_adi As dosya_yolu & yeni_dosya_adi
End Sub

Bu kod, C sürücüsündeki "dosyalar" dizinindeki "dosya.txt" dosyasının uzantısını ".xlsx" olarak değiştirir. dosya_yolu değişkeni, dosyanın bulunduğu dizinin yolunu belirtir ve eski_dosya_adi ve yeni_dosya_adi değişkenleri, eski ve yeni dosya adını belirtir. Name komutu, dosyanın adını değiştirir.