когда программа доходит до

, вылетает Subscript out of range. Поправте пжлст или подскажите как поправить.
В этот момент i уже равно 11. Вставьте

внутрь нового цикла от 1 до n.
И еще, Redim тут не нужен. Определяйте массив оператором
Dim b(
10) As Single