Private Sub CB_Click()
   Dim a, b, c, d, t As Integer
    t = 90
    a = 1
    Dim KC, K3 As Integer
    KC = Cells(2, 1)
    K3 = Cells(2, 2)
    ReDim VB(1 To K3)
    ReDim VBS(1 To K3)
    For i = 1 To K3
        VB(i) = Cells(i + 1, 3)
    Next
    For i = 1 To K3
        VBS(i) = Cels(i + 1, 4)
    Next
    For i = 1 To K3
    d = d + VB(i)
    Next
    If t <= d Then
        TextBox1.Text = "&#194;&#241;&#229; " & KC & " &#241;&#242;&#243;&#228;&#229;&#237;&#242;&#238;&#226; &#241;&#228;&#224;&#235;&#232;"
    Else
        Do While (t > 0 And a <> K3 And Z <> KC)
            s = 0
            For i = a To K3
                s = s + VBS(i)
            Next
            t = t - s
            If t > 0 Then
                Z = Z + 1
            End If
            Do
                s = s - VB(a)
                If s < 0 Then
                    t = t + s
                    a = a + 1
                ElseIf s = 0 Then
                    a = a - 1
                Else
                    a = a + 1
            End If
            Loop While (s > 0 And a <> K3)
        Loop
        TextBox1.Text = "&#209;&#228;&#224;&#235;&#232; " & Z & " &#247;&#229;&#235;&#238;&#226;&#229;&#234;"
    End If
End Sub