Error 0x800A0006

[nana_01]

hola a todos........ tengo el siguiente error y no tengo idea como solucionarlo

Error de Microsoft VBScript en tiempo de ejecución (0x800A0006)
Desbordamiento
/ir/TabuDatos.asp, line 258


este es una parte del codigo, pero es donde se encuentra el error

Redim Preserve Rol_actual(I)
Rol_actual(I) = rs.fields("rol")
Redim Preserve ROH_1(I)
ROH_1(I) = REMU_ORD_1 / nc4_1_1
Redim Preserve ROH_2(I)
ROH_2(I) = REMU_ORD_2 / nc4_1_2
Redim Preserve ROH_3(I)
ROH_3(I) = REMU_ORD_3 / nc4_1_3
Redim Preserve ROH_4(I)
ROH_4(I) = REMU_ORD_4 / nc4_1_4
Redim Preserve ROH_5(I)
ROH_5(I) = REMU_ORD_5 / nc4_1_5
Redim Preserve ROH_6(I)
ROH_6(I) = REMU_ORD_6 / nc4_1_6
Redim Preserve ROH_7(I)
ROH_7(I) = REMU_ORD_7 / nc4_1_7
Redim Preserve ROH_8(I)
ROH_8(I) = REMU_ORD_8 / nc4_1_8
Redim Preserve ROH_9(I)
ROH_9(I) = REMU_ORD_9 / nc4_1_9

por supuesto ke este codigo se encuentra dentro de un while, tambien el I esta inicializado en 0

la lines donde sale el mensaje de error es
linea 258 ROH_2(I) = REMU_ORD_2 / nc4_1_2

a ke se debe el error........... se los agradeceria mucho si me respondieran