Vb form da ustel hareketli ortalama yapmaya calışıyoruz işin icinden cıkamadık

Dim a As Double
a = TextBox40.Text
Dim veriler2(13) As Double
For i = 1 To 12
veriler(i) = Val(textboxlar(i).Text)
Next
For z = 1 To 13
veriler2(z) = Val(textboxlar2(z).Text)
Next
Dim k As Integer
Dim sum2 As Double
For k = 1 To veriler.GetUpperBound(0) + 1
veriler2(1) = TextBox1.Text
sum2 = ((1 - a) * veriler(k)) + (a * veriler2(k))


ustel(k) = sum2


Next
burda sum2 = ((1 - a) * veriler(k)) + (a * veriler2(k))
kod hata veriyor yardım edebilecek biri var mı
__________________