GetFileExtension

Public Function GetFileExtension( _
    sFullFileNameWithPath As String _
) As String
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    GetFileExtension = _
        fs.GetExtensionName( _
            sFullFileNameWithPath _
        )
    Set fs = Nothing
End Function