Проблема с кодом в VB, ошибка в вычислении факториала

[Богдан Величко]

Здравствуйте, выполняя по методичке задание (циклический вычислительный процесс) по VB наткнулся на такую проблему - ошибка в программном коде, а именно в вычислении факториала, вот условие и код(условие прикрепил) -

Dim x As Single, P As Single, n As Integer, k As Integer
Dim i As Integer, f As Long

Private Sub Form_Load()
Option1.Value = True
End Sub



Private Sub Command1_Click()

     If IsNumeric(Text2) = True And IsNumeric(Text1) = True Then
     n = Text2.Text
     x = Text1.Text
         If n < 0 Or n <> Int(n) Then
            Label5.Visible = True
            Text2.Text = ""
            Text3.Text = ""
            Text2.SetFocus
            'Exit Sub
         Else
         If Option1.Value = True Then
           P = 1
             For k = 1 To n
                P = P + (x) / ((2 * k - 1) * (2 * k + 1))
             Next
           P = 3 * P
           Text3.Text = P
         End If
        If Option2.Value = True Then
          P = 1
            For k = 1 To n
               f = 1
                For i = 1 To k
                 f = f * i
                Next
            P = P * (1 + ((k ^ 2 * x) / (f)))
            Next
            Text3.Text = Y
        End If
       End If
        
     Else
            MsgBox " Вы ввели не число!"""
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Text2.SetFocus
            Exit Sub
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Подскажите пожалуйста, что подправить?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Богдан Величко]

Ребят, очень надо, подскажите хоть как факториал в Бейсике вообще записывается?..