jajaj disculpen se me olvido aclarar q stoy usando eso ....
miren mi codigo
Private Sub Monto_LostFocus(Index As Integer)
TotMonto.Text = CDec(Monto(ind).Text) + TotMonto.Text
End Sub
no logro que monto(ind).text se mueva al siguiente indice y sume el nuevo valor...