太多循环了,如何用组合?

Private Sub Command1_Click()
Dim a
Debug.Print Now
a = Array(5, 64, 65, 79, 12, 36, 55, 42, 36, 45, 54, 23, 65, 54, 23, 4, 6, 56, 9, 5, 8, 7, 7, 5, 9, 6, 4, 2, 4, 3, 6, 2, 13, 1, 23, 2, 4, 15, 6, 6, 5, 7, 4, 3, 6, 2, 1, 3, 3, 5, 2, 3, 1, 5, 3, 3, 5, 3, 6, 5, 5, 6, 43, 6, 5, 3, 4, 5, 3, 1, 2, 3, 4, 6, 8, 56, 5)
For k0 = 1 To 30
For k1 = k0 + 1 To 31
b1 = a(k0) + a(k1)
For k2 = k1 + 1 To 32
b2 = b1 + a(k2)
For k3 = k2 + 1 To 33
b3 = b2 + a(k3)
For k4 = k3 + 1 To 34
b4 = b2 + a(k4)
For k5 = k4 + 1 To 35
b5 = b2 + a(k5)
For k6 = k5 + 1 To 36
b6 = b2 + a(k6)
For k7 = k6 + 1 To 37
b7 = b2 + a(k7)

DoEvents
i = i + 1
Next
Next
Next
Next
Next
Next
Next
Next
Debug.Print i
Debug.Print Now
End Sub

太多循环了,如何用组合?