Vba code for newton raphson

[albeezy]

Can somebody tell me how to write a VBA code for Newton Raphson
The code should begin like this
Function Newt_Raph_1 (x_initial,cc,n)




I have the code for matlab but i cant seem to write it in VBA
%STEP 1: Name the function and its arguments.
function NewtRaph(x_init, cc, n)
%STEP 2: GIVE INITIAL VALUES, and other starting information.
x=x_init;
%STEP 3: RUN THE LOOP.
for i=1:n;
x_prev=x;
x=x-func2(x)/der_func2(x);
if 100*abs((x-x_prev)/x_prev)<cc,break,end;
end
%STEP 4: REPORT RESULTS.
disp(x)
%STEP 5: END THE FUNCTION.
end


If someone could please help id appreciate it HW#6_Instructions_Fall_2014.pdf
Attached is the problem. Number 1 part g is the problem i need help doing thanks