VBA dilinde dosyanın uzantısını elde etmek için Right fonksiyonu kullanılabilir. Aşağıdaki kod bloğu bir dosya adı verildiğinde, dosyanın uzantısını gösterecektir.

Public Function DosyaUzantisi(dosyaAdi As String) As String
    DosyaUzantisi = Right(dosyaAdi, Len(dosyaAdi) - InStrRev(dosyaAdi, "."))
End Function

Sub Example()
    Dim dosyaAdi As String
    dosyaAdi = "dosya.txt"
    Debug.Print DosyaUzantisi(dosyaAdi)
End Sub

InStrRev fonksiyonu ile dosyaAdi parametresindeki son nokta karakterinin pozisyonu bulunur ve Right fonksiyonu ile dosyaAdi parametresinin sonundan başlayarak dosyaAdi parametresinin uzantısı elde edilir.