Краш при получении расширения файла

wchar_t filePath[MAX_PATH]; // массив под путь до файла
 
                lstrcpyW(filePath, a); // копирую путь до файла в массив
                lstrcatW(filePath, data_file.cFileName); // добавляю к массиву название файла
 
                int pos = findchr(data_file.cFileName, L"."); // нахожу позицию точки
 
                LPCWSTR fileName = data_file.cFileName; // определяю строку как название файла
 
                if (pos != -1) { // если точка была вообще найдена
                    BYTE* out = (BYTE*)HeapAlloc(GetProcessHeap(), NULL, lstrlenW(fileName) - pos - 1); // создаю массив размером с расширение
 
                    findExtension(fileName, pos, out); // тут небольшой цикл, который из название файла начиная с позиции точки отправляет по символу расширение в массив
 
                    LPWSTR extension = S2W(byte2ch(out, lstrlenW(fileName) - pos - 1)); // преобразование строки из массива байтов в юникод строку
                    HeapFree(GetProcessHeap(), NULL, out); // освобождение памяти
                }

void findExtension(LPCWSTR fileName, int pos, BYTE* ext)
{
    if (pos != -1) 
    {
        int lenght = lstrlenW(fileName);
        
        for (int i = 0; i < lenght - pos; i++)
        {
            ext[i] = fileName[pos + 1 + i];
        }
    }
}

LPCWSTR filename = L"BOOTNXT.txt";
    int pos = findchr(filename, L".");
 
    BYTE* out = (BYTE*)HeapAlloc(GetProcessHeap(), NULL, lstrlenW(filename) - pos - 1);
 
    findExtension(filename, pos, out);
 
    LPCWSTR extension = s2ws(byte2ch(out, lstrlenW(filename) - pos - 1)).c_str();
    HeapFree(GetProcessHeap(), NULL, out);
    MessageBoxW(NULL, extension, NULL, SW_SHOW);

LPCWSTR findExtension(LPCWSTR fileName, LPCWSTR &ext2)
{
    int lenght = lstrlenW(fileName);
    if (lenght == 0)
        return ext2 = fileName;
 
    ext2 = fileName + lenght;
    for (LPCWSTR p = ext2 - 1; p >= fileName; --p)
        if (*p == L'.')
            return p + 1;
 
    return ext2;
}
 
............
 
LPCWSTR ext2;
LPCWSTR ext = findExtension(fileName, ext2);
LPWSTR out = nullptr; 
 
const size_t ln = ext2 - ext;
if (ln != 0)
{
    out = (LPWSTR)::HeapAlloc(GetProcessHeap(), NULL, (ln + 1) * sizeof(*ext));
    memcpy(out, ext, ln * sizeof(*ext));
    out[ln] = 0;
}