Thanks mate! I think I could fix it with this:
Euler[c_, final_, step_, o_, r_, b_] := Module[{x},
x = ConstantArray[0, {Quotient[final, step], 3}];
x[[1]] = c;
For[i = 2, i <= Quotient[final, step], i++,
x[[i, 1]] = o*(x[[i - 1, 2]] - x[[i - 1, 1]])*step + x[[i - 1, 1]] ...