Проблемы с выбором типа файла в Save As... - VB

Формулировка задачи:

Предполагается сохранять tiff файлы в различных форматах.
Проблема в том, что если меняем формат сохранения(в combobox с фильтрами) и ничего не меняем в имени файла (изначально подставляется имя исходного tiff), то окно возвращает имя с расширением tif, а не то что выбрано (jpg, pdf и т.п.), если что-то поменять в имени файла, то все корректно.

OSV_VERSION_LENGTH =    SetOSVersion
    
        sFilters =  & vbNullChar &  & vbNullChar & _
             & vbNullChar &  & vbNullChar & _
             & vbNullChar &  & vbNullChar & _
             & vbNullChar &  & vbNullChar & _
             & vbNullChar &  & vbNullChar & _
             & vbNullChar &  & vbNullChar & vbNullChar
    
     OFN
        .nStructSize = OSV_VERSION_LENGTH
        .hWndOwner = .hWnd
        .sFilter = sFilters
        .nFilterIndex = 
        .sFile = FileShort & Space$() & vbNullChar & vbNullChar
        .nMaxFile = Len(.sFile)
        .sDefFileExt =  & vbNullChar & vbNullChar
        .sFileTitle = vbNullChar & Space$() & vbNullChar & vbNullChar
        .nMaxTitle = Len(OFN.sFileTitle)
        .sInitialDir = FaxPath
        
        .flags = OFS_FILE_SAVE_FLAGS  _
            OFN_ENABLESIZING  _
            OFN_ENABLEHOOK

    lReturn = GetSaveFileName(OFN)
     lReturn =  

        targetfile = Trim(OFN.sFile)
        MsgBox targetfile

...

targetfile -имя файла с расширением во что сохранять, и если дергать только фильтр, а не менять имя, то всегда будет .tif М.б. какие флаги забыл?

Решение задачи: «Проблемы с выбором типа файла в Save As...»

textual
                            Листинг программы 
                        
                            .sFile = FileName(FileShort) & Space$(<font color="darkblue"><b>1024</b></font>) & vbNullChar & vbNullChar