El codigo del boton dejalo asi:
Código:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For Me.m = 0 To UBound(y)
subtotal = subtotal + Val(y(m).Text)
Next
TextBox7.Text = subtotal
fondo = subtotal * (10 / 100)
TextBox8.Text = fondo
TextBox16.Text = subtotal + fondo
For Me.m = 0 To UBound(y)
MsgBox(Val(y(m).Text))
Next
m=0
End Sub
saca:
subtotal = 0
Y arriba declaras m entero.. asi me anda excelente! saludos