Private Sub ButNext_Click()
Dim contentSig As String
Dim i As Long
Dim DerCod() As Byte

Dim SignedData, signer, SigningTime
Set SignedData = CreateObject("Capicom.SignedData")
Set signer = CreateObject("Capicom.signer")
Set SigningTime = CreateObject("Capicom.Attribute")

Dim colerr As Long
colerr = 0
Me.Hide
progressBarOn "Подпись документов", 0, Me.ListFiles.ListCount
signer.Certificate = Certificates.item(Me.ListSertificates.ListIndex + 1)
If Me.ChkTime.value = True Then
    SigningTime.Name = 0
    SigningTime.value = Now
    signer.AuthenticatedAttributes.Add SigningTime
    signer.Options = 0
End If
On Error Resume Next
For i = 0 To Me.ListFiles.ListCount - 1
    SignedData.Content = FuncEncrypt.GFB(Me.ListFiles.List(i))
    If Me.OptBase.value = True Then
        contentSig = SignedData.Sign(signer, True, 0)
        If contentSig <> "" Then
            FuncEncrypt.SF Me.ListFiles.List(i) + "." + Me.txtRas.Text, contentSig
            contentSig = ""
            colerr = colerr + 1
        End If
    Else
        DerCod = SignedData.Sign(signer, True, 1)
        If UBound(DerCod) = -1 Then
        Else
            FuncEncrypt.WBA Me.ListFiles.List(i) + "." + Me.txtRas.Text, DerCod
            Erase DerCod
            colerr = colerr + 1
        End If
    End If
    progressBarRun "Подпись документов", 0, Me.ListFiles.ListCount, i
Next i
    progressBarOff
    If colerr <> Me.ListFiles.ListCount Then
        MsgBox "Ошибка при подписи документов!" + Chr(13) + "Файлов подписано: " + CStr(colerr), vbOKOnly + vbCritical, "Румб-подпись документов"
        Err.Clear
    ElseIf colerr = Me.ListFiles.ListCount And Me.ListFiles.ListCount > 0 Then
        MsgBox "Документы были успешно подписаны!" + Chr(13) + "Файлов подписано: " + CStr(colerr), vbOKOnly + vbInformation, "Румб-подпись документов"
    End If
    Set SignedData = Nothing
    Set signer = Nothing
    Set SigningTime = Nothing
    Me.Show
End Sub