エラーになってしまいますがどこがダメなのか分かりません。Subscript out of rangeです。