Help to make program faster

ok, heres another easy one. all i need is get results faster :)
heres my code:

Private Sub smth()
Dim I As Integer
Dim StrFileLines() As String

For v = 1 To 11
    Open ("./tmp/" & failiv(v - 1) & ".txt") For Input As #v
    massiv(v - 1) = Input(LOF(v), #v)
    Close #v
Next v
For b = 0 To 10
    StrFileLines = Split(massiv(b), vbNewLine)
    bb(b) = UBound(StrFileLines) - 1
    Erase StrFileLines
Next b
End Sub

Private Sub do_it()
ct = 0
stp = False
Do
  calc
  new_ary
Loop Until stp = True
End Sub

Private Sub calc()
Dim StrFileLines1() As String
For r = 0 To 15
    calc_ary(r) = start_ary(r)
Next r
For t = 0 To 10
    StrFileLines1 = Split(massiv(t), vbNewLine)
    ReDim strFile(UBound(StrFileLines1))
    For I = LBound(strFile) To UBound(strFile)
        strFile(I).sField = Split(StrFileLines1(I), strDelim)
    Next I
    Erase StrFileLines1
    For tt = 0 To 15
        calc_ary(tt) = calc_ary(tt) + strFile(kntvk(t)).sField(tt)
        If calc_ary(tt) = 3 Then calc_ary(tt) = 0
    Next tt
Next t
p = 0
For r = 0 To 15
   p = p + calc_ary(r)
Next r
If p = 0 Then
    MsgBox (a10 & "." & a9 & "." & a8 & "." & a7 & "." & a6 & "." & a5 & "." & a4 & "." & a3 & "." & a2 & "." & a1 & "." & a0 & ".")
    stp = True
End If
End Sub

Private Sub new_ary()
a0 = a0 + 1
If ct = 5000000 Then stp = True
ct = ct + 1
If a10 > bb(10) Then
    stp = True
    MsgBox ("nothing")
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) And a5 = bb(5) And a6 = bb(6) And a7 = bb(7) And a8 = bb(8) And a9 = bb(9) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = 0
    a6 = 0
    a7 = 0
    a8 = 0
    a9 = 0
    a10 = a10 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) And a5 = bb(5) And a6 = bb(6) And a7 = bb(7) And a8 = bb(8) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = 0
    a6 = 0
    a7 = 0
    a8 = 0
    a9 = a9 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) And a5 = bb(5) And a6 = bb(6) And a7 = bb(7) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = 0
    a6 = 0
    a7 = 0
    a8 = a8 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) And a5 = bb(5) And a6 = bb(6) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = 0
    a6 = 0
    a7 = a7 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) And a5 = bb(5) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = 0
    a6 = a6 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) And a4 = bb(4) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = 0
    a5 = a5 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) And a3 = bb(3) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = 0
    a4 = a4 + 1
End If
If a0 > bb(0) And a1 = bb(1) And a2 = bb(2) Then
    a0 = 0
    a1 = 0
    a2 = 0
    a3 = a3 + 1
End If
If a0 > bb(0) And a1 = bb(1) Then
    a0 = 0
    a1 = 0
    a2 = a2 + 1
End If
If a0 > bb(0) Then
    a0 = 0
    a1 = a1 + 1
End If

kntvk(0) = a0
kntvk(1) = a1
kntvk(2) = a2
kntvk(3) = a3
kntvk(4) = a4
kntvk(5) = a5
kntvk(6) = a6
kntvk(7) = a7
kntvk(8) = a8
kntvk(9) = a9
kntvk(10) = a10

End Sub

so... can anyone help me? anything helps :) thanks