suma la cantidad solo 1º celda

[guillebomtrasmiti]

sigo preguntando cosas que nadie contesta, pero si lo arreglo tranquilos lo cuelgo para que si algún día alguien lo necesita lo pueda aprovechar, he avanzado, ahora el único problema es que no se como parar el bucle for, me cambia todo bien pero el bucle for se hace infinito y no se pararlo alguién me ayuda?¿?

Dim total As Decimal = 0
Dim valor As Decimal = 0
Dim text As String
Dim i As Integer
text = CStr(CInt(TxtPorcentaje.Text))
For i = 0 To DgTotales.Rows.Count - 1 'Step 1
valor = CDec(DgTotales.Rows(i).Cells(2).Value)
'MessageBox.Show(CStr(DgTotales.Rows(i).Cells(2).V alue))
'For Each row As DataGridViewRow In DgTotales.Rows
' If row.Cells(2).Value IsNot Nothing Then
If valor <> 0 Then
total = CDec((valor) / CDbl(text) * 100)
'MessageBox.Show(CStr(total))
DgTotales.Rows(i).Cells(2).Value = total
' MessageBox.Show(CStr(total))
'DgTotales.Refresh()
End If
Next