Programación VB, por favor ayúdenme

Sub privado Form_Click()

Dim x, n, i, res

x = Val(InputBox("Datos de entrada x")): n = Val(InputBox("Datos de entrada n"))

Para i = 2 To n

res = res + x ^ (i - 1) / jc(i)

Siguiente i

MsgBox res

End Sub

Función jc(m)

Dim j, tem

tem = 1

Para j = 1 Para m

tem = tem * j

Siguiente j

jc = tem

Función final