Циклический алгоритм. Цикл с параметром. - VB

Private Sub Command1_Click()'5
Dim str As String
Dim x(14), k As Integer
x(1) = 0.3: x(2) = -0.3
str = "x(1) = " & x(1) & vbNewLine & "x(2) = " & x(2)
For k = 3 To 14
x(k) = k + Sin(x(k - 2))
str = str & vbNewLine & "x(" & k & ") =" & x(k)
Next k
MsgBox str
End Sub
 
Private Sub Command2_Click()'6
Dim N As Integer, i As Integer, j As Integer
Dim x As Single, F As Single, fct
N = Val(InputBox("Вводим n", , 5))
If N < 0 Then
MsgBox "N<0 !"
Exit Sub
End If
 
x = Val(InputBox("Вводим x", , 2))
F = 1
For i = 1 To N
 fct = 1
 For j = 2 To i
 On Error GoTo 1
     fct = fct * j
 Next j
F = F + (x ^ i) / fct
Next i
MsgBox "для n=" & N & "   " & "Y = e ^ " & x & " = " & F
Exit Sub
1 MsgBox "слишком большое n"
 
End Sub