VBA Poissonova razporeditev

Pozdravljeni,
v VBA moram narediti program, ki za števila 1-100 s parametrom 1,5 izračuna verjetnosti zbirnih funkcij.

Module Module1

    Sub Main()

        Dim value(100) As Double
        For X As Integer = 1 To 100

            Dim r As Double = 0
            For k As Integer = 0 To X
                r += ((Math.Pow(Math.E, -X) * (Math.Pow(X, k))) / (factorial(X)))
            Next
            Console.WriteLine(r)
        Next

            Console.WriteLine(1 * Math.Log10(1.5))
        Console.ReadKey()

    End Sub


    'Function which calculates the factorial value of number n'
    Public Function factorial(n As Integer) As Integer
        Dim r As Integer = 0

        For i As Integer = 1 To n
            r *= i
        Next
        Return r

    End Function

End Module

V Javi za prvi dve števili dobim rezultat dvakrat premajhen, kasneje se ta razlika še bolj spremeni, tukaj pa Infinity za vsa števila. Rezultati bi morali priti:

1 - 0,735758882
2 - 0,40600585
3 - 0,149361205
4 - 0,073262556
5 - 0,033689735
6 - 0,014872513
7 - 0,006383174
8 - 0,002683701
9 - 0,001110688
10 - 0,000453999
11 - 0,000183719
12 - 7,37305E-05
13 - 2,93843E-05
14 - 1,16414E-05
15 - 4,58853E-06
16 - 1,80056E-06
17 - 7,03789E-07
18 - 2,7414E-07
19 - 1,06453E-07
20 - 4,12231E-08
... do sto

Hvala za odgovore.