Sorry, zu schnell abgeschickt. Der Code funktioniert leider nicht wie dargestellt weil er die Ressouce nicht findet :(

...zur Antwort

Du musst die Variablen als "Double" definieren.

Dim Variablenname as Double

dann sollte es funktionieren.

...zur Antwort