Public Function Poisson(lambda As Double, k As Integer) As Double
        If lambda < 0.000001 Or k < 0 Then Return -1
        Dim pk As Double = Math.Exp(-lambda)
        For i As Integer = 1 To k
            pk = (lambda / i) * pk
        Next i
        Return pk
    End Function