Hunter penis size

stdout HunterPenisSize(InputBox("Enter the weight of the animal hunted"))

Function HunterPenisSize(AnimalWeight As Long) As Single ' inches
    ' stdout.mixmox.com/2018/09/hunter-penis-size.html
    Const ElephantWeight = 13000 ' lbs
    Const BiggestPrick = 5 ' average at best
    Const DickFactor = ElephantWeight / (BiggestPrick ^ 3)
    If AnimalWeight < 0 Then
        HunterPenisSize = BiggestPrick
    Else
        HunterPenisSize = BiggestPrick - ((AnimalWeight / DickFactor) ^ 0.5)
    End If
End Function