Private Function Raddoppia(ByVal val as Double) as Double
   Raddoppia = val * 2
End Function