Function isum(n As Integer) As Double 
    isum = 0
    For i = 1 To n
        k = 1
        For j = 1 To i
            k = k * j
        Next   
        isum = isum + 1 / k
    Next
End Function