из нескольких процедур сделать одну функцию с запсуком с параметрами

Private Sub Кнопка10_Click()
Dim xls As Object
Dim VERSIYA As String
 
On Error GoTo ErrHandler
 
Set xls = CreateObject("Excel.Application")
VERSIYA = xls.Application.Version
Select Case VERSIYA
Case "14.0"
MsgBox ("Установлен 2010")
Case "12.0"
Call Exportiruem  'Если на ПК установлен Эксель 2007 тогда будем экспортировать (ИСПОЛЬЗУЕМ процедуру написанную ниже)
Case "11.0"
MsgBox MsgBox("Установлен 2003")
Case Else
MsgBox ("Другая версия")
End Select
 
ErrEnd:
Set xls = Nothing
Exit Sub
ErrHandler:
  Select Case Err.Number
    Case 429
      MsgBox ("Не установлен")
      Case Else
MsgBox ("Другая ошибка")
      Resume ErrEnd
  End Select
End Sub
 
 
Private Sub Exportiruem()   'Делаем экспопт (Процедура используется в процедуре выше)
Dim oapp As Object, owrk As Object, osh As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM Таблица")
Set owrk = GetObject(CurrentProject.Path & "\Путь\ФайлТаблица.xlsx")
 
If IsExcelRunning Then
'если Excel есть в запущенных процессах
  Set osh = owrk.Worksheets("Лист1")
  On Error Resume Next
  osh.Range("a2").CopyFromRecordset rst
  If Err.Number = -2147417851 Then Resume 'бывает такая ошибка у CopyFromRecordset
  On Error GoTo 0
  owrk.Windows(1).Visible = True
  owrk.Save
  owrk.Close
Else
  'Excel не запушен
  Set oapp = owrk.Application
  Set osh = owrk.Worksheets("Лист1")
  On Error Resume Next
  osh.Range("a2").CopyFromRecordset rst
  If Err.Number = -2147417851 Then Resume
  On Error GoTo 0
  oapp.Visible = False
  owrk.Windows(1).Visible = True
  owrk.Save
  oapp.Quit
End If
End Sub
 
Function IsExcelRunning() As Boolean    'Узнаем запущен ли эксель на компьютере (используем в процедуре Exportiruem)
   Dim xlApp As Object
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    IsExcelRunning = (Err.Number = 0)
    Set xlApp = Nothing
    Err.Clear
End Function

Private Sub Exportiruem (ByVal str1 As String, ByVal str2 As String)
....
Set rst = CurrentDb.OpenRecordset("SELECT * FROM str1") 'Это переменная для 1-го параметра
Set owrk = GetObject(CurrentProject.Path & "\ & str2")   'А эта для 2-го параметра
...
End sub
 
'Теперь запускаю процедуру
Procedura_1("Таблица1", "Путь\ФайлТаблица.xlsx")