[VB6] Funzione ricorsiva ed errore in Return

[sthirs]

Salve a tutti sono nuovo

sono alle prese con questa funzione ricorsiva in js da tradurre in vb:

function poisson(k,lambda){
     if(k==0){
          return Math.exp((-1)*lambda);
     }
     else{
          return (lambda/k)*poisson(k-1,lambda);
     }
}

ho provato a tradurla in vb così:

Public Function poisson(k As Integer, lambda As Byte) As Byte
     If k = 0 Then
          return Exp ((-1) * lambda)
     Else
          return (lambda / k) * poisson(k - 1, lambda)
     End If
End Function

mi dice errore di sintassi nei return..cosa sbaglio?

[oregon]

Deve essere

Public Function poisson(k As Integer, lambda As Byte) As Byte
     If k = 0 Then
          poisson = Exp ((-1) * lambda)
     Else
          poisson = (lambda / k) * poisson(k - 1, lambda)
     End If
End Function

ma sei sicuro che non debba essere

Public Function poisson(k As Integer, lambda As Double) As Double

?