【VBA】拡張子の存在確認｜ExtensionExists

Public Function ExtensionExists( _
                                    ByVal str As String, _
                                    ByVal extension As String) As Boolean
    ExtensionExists = False
    Dim length As Long: length = Len(extension)
    If Right(str, length) = extension Then ExtensionExists = True
End Function