Вычислить среднее геометрическое sin(i-m(i)) - VB

Формулировка задачи:

Пожалуйста помогите разобраться: Вычислить и округлить до 0,1 элементы массива M=(m(i)), где m(i)=9sin(tgi+k),а i=(1,2...7) Найти среднее геометрическое sin(i-m(i)) С первой частью задания проблем нет, а вот вторая упорно не получается. Помогите пожалуйста найти ошибку

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim ks, rzs As String
Dim k, c, prz, rez As Double
Dim M(6) As Double
Dim M2(6) As Double
Dim i, n As Integer
Dim b As Boolean
    ks = Text1.Text
    k = CDbl(ks)
    n = 0
    prz = 1
    b = False
    For i = 1 To 7
        M(i - 1) = 9 * Sin(k + Tan(i))
        M(i - 1) = Round(M(i - 1), 1)
        If i = 1 Then Text3.Text = CStr(M(i - 1)) Else Text3.Text = Text3.Text + ";  " + CStr(M(i - 1))
        M2(i - 1) = Sin((i - M(i - 1)))
        If M2(i - 1) > 0 Then
        n = n + 1
            prz = ((prz * M2(i - 1))) ^ (1 / n)
            b = True
        End If
    Next i
    rez = Round(prz, 3)
    rzs = CStr(rez)
    If b Then Text2.Text = rzs Else Text2.Text = "Таких чисел нет!"
End Sub
 
Private Sub Text1_Click()
Text1.Text = ""
End Sub

Решение задачи: «Вычислить среднее геометрическое sin(i-m(i))»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    For i = 1 To 7
        M(i - 1) = 9 * Sin(k + Tan(i))
        M(i - 1) = Round(M(i - 1), 1)
        If i = 1 Then Text3.Text = CStr(M(i - 1)) Else Text3.Text = Text3.Text + ";  " + CStr(M(i - 1))
        M2(i - 1) = Sin((i - M(i - 1)))
        If M2(i - 1) > 0 Then
        n = n + 1
            prz = prz * M2(i - 1)
            b = True
        End If
    Next i
    prz = prz ^ (1 / n)