Private Sub butImport_Click()
....
Do While Not rsG.EOF
    If rsG.Fields( "vyb" ) = True Then
    proc = rsG.Fields( "Proc" )
         Eval ( "Forms!fGlav."  & proc)
    End If
rsG.MoveNext
Loop
....
End Sub

Public Sub ImportKorr23_24_25_28()
If bEv = True Then Exit Sub
bEv = True
...
addValKorr  23 ,  "50706 ", sum,  1 
...
End Sub

Private Sub addValKorr(numkor As Integer, names As String, value As Currency, DorK As Byte) 
....
name = names
strCrit =  "nameSt='" & name & "'" 
rs.FindFirst strCrit
...
End Sub

Public Sub ImportKorr23_24_25_28()
If bEv = True Then Exit Sub
bEv = True
...
addValKorr  23 ,  "50706 ", sum,  1 
Set XL = CreateObject( "excel.application" )
Set WB = XL.Workbooks.Open(strPath)
...
End Sub

Dim XL As Excel.Application
Set XL = CreateObject( "excel.application" )