Function fact(n)
'Функция для задачи2 варианта 6
If n = 1 Then
    fact = 1
Else
    fact = n * fact(n - 1)
End If
End Function