VB6 Code - Mendapatkan Ekstensi dari Path Lengkap

Di bawah merupakan fungsi VB6 untuk mendapatkan ekstensi dari path lengkap.

'Fungsi untuk mendapatkan ekstensi dari path lengkap:
Public Function GetExtension(FileName As String)
    Dim str() As String
    str = Split(FileName, ".")
    GetExtension = str(UBound(str))
End Function

'Contoh penggunaan fungsi untuk mendapatkan ekstensi dari path lengkap
Private Sub Form_Load()
    MsgBox GetExtension("c:\mydir\myfile.exe") 'menghasilkan 'exe'
End Sub