Написать процедуру для вычисления факториала числа - VB

Private Sub Command1_Click()
Dim A, B, X, S, T
A = 10
B = 10
X = Val(InputBox("Введите значение X", "Ввод данных"))
Select Case X
Case Is <= 0
S = A * X ^ 2 + B * X
T = X & " < 0"
Case 0 To 5
T = "0 < " & X & "<= 5"
S = B !!!!!!!!!!!!
Case Is > 5
T = X & " > 5"
For A = 1 To B
S = S + 1 / A
Next A
End Select
MsgBox T & vbCrLf & "Результат " & S, 64, "Вывод данных"
End Sub