Sub xlsb()
 Dim A As String
 Dim B As String
     A = InputBox("Введите данные", "Ввод данных")
   B = InputBox("Введите данные", "Ввод данных")
    Dim sFolder As String, sFiles As String
      With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
      Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls")
    Do While sFiles <> ""
            Workbooks.Open sFolder & sFiles
    On Error Resume Next: Err.Clear
     
    If Val(Application.Version) < 12 Then Exit Sub
   
   oldName$ = ActiveWorkbook.FullName
 
      If UCase$(oldName$) Like "*.XLSB" Then Exit Sub
   
   newName$ = Left(oldName$, InStrRev(oldName$, ".")) & "xlsb"
     
   ActiveWorkbook.SaveAs newName$, xlExcel12
 
       If Err = 0 Then Kill oldName$
         Application.CutCopyMode = False
 ActiveWorkbook.Close True                    
 sFiles = Dir
    Loop
   
    Application.ScreenUpdating = True
End Sub