publick function asdf()
k=val(textbox1)

n=1

for i=1 to k
n=n*i
next i

msgbox(n)

end function

еси надо могу блок схему нарисовать