Public Sub Win2Dos(str As String, Optional CmdMeter As Boolean = True)
 
On Error GoTo Err_

Dim Conv As Variant
Dim Tmp As Byte
Dim i As Long
Dim j As Long
    
    Conv = Array( 192 ,  193 ,  194 ,  195 ,  196 ,  197 ,  198 ,  199 ,  200 ,  201 ,  202 ,  203 ,  204 ,  205 ,  206 ,  207 , _
                  208 ,  209 ,  210 ,  211 ,  212 ,  213 ,  214 ,  215 ,  216 ,  217 ,  218 ,  219 ,  220 ,  221 ,  222 ,  223 , _
                  224 ,  225 ,  226 ,  227 ,  228 ,  229 ,  230 ,  231 ,  232 ,  233 ,  234 ,  235 ,  236 ,  237 ,  238 ,  239 , _
                  128 ,  129 ,  130 ,  131 ,  132 ,  133 ,  134 ,  135 ,  136 ,  137 ,  138 ,  139 ,  140 ,  141 ,  142 ,  143 , _
                  144 ,  145 ,  146 ,  147 ,  148 ,  149 ,  150 ,  151 ,  152 ,  153 ,  154 ,  155 ,  156 ,  157 ,  158 ,  159 , _
                  160 ,  161 ,  162 ,  163 ,  164 ,  165 ,  166 ,  167 ,  169 ,  170 ,  171 ,  172 ,  173 ,  174 ,  175 ,  176 , _
                  240 ,  241 ,  242 ,  243 ,  244 ,  245 ,  246 ,  247 ,  248 ,  249 ,  250 ,  251 ,  252 ,  253 ,  254 ,  255 , _
                  168 ,  184 ,  177 ,  178 ,  179 ,  180 ,  181 ,  182 ,  183 ,  185 ,  186 ,  187 ,  188 ,  189 ,  190 ,  191 )

    Open str For Random As # 1  Len = Len(Tmp)
    If CmdMeter Then
        SysCmd acSysCmdInitMeter, "Преобразование файла: ", LOF( 1 )
    End If
    For i =  1  To LOF( 1 )
        If CmdMeter Then
            SysCmd acSysCmdUpdateMeter, i
        End If
        Get # 1 , i, Tmp
        If Tmp >  127  Then
            For j =  0  To  127 
                If Conv(j) = Tmp Then
                    Tmp = j +  128 
                    Put # 1 , i, Tmp
                    Exit For
                End If
            Next j
        End If
    Next i
    Close # 1 
    
Exit_:
On Error Resume Next
    If CmdMeter Then
        SysCmd acSysCmdRemoveMeter
    End If
    Close # 1 
    Exit Sub
Err_:
    MsgBox Err.Description, vbOKOnly
    Resume Exit_

End Sub