---

      
Function berechnung(ByVal z1 As Double, ByVal z2 As Double) As Double
    berechnung = z1 / z2
End Function 

---