如何修复“索引超出数组的界限”并将值写入数组?

I am trying to write a Role-Playing Dice subprogram. I am using Visual Studio 2010 writing in Visual Basic. All syntax according to Visual Studio is correct. The form looks as follows:I am trying to write a Role-Playing Dice subpro