WorksheetFunction.IfError

Jeg har en makro hvor jeg gerne vil test en formel for fejl. Hvis der er fejl skal den skrive 0, hvis ikke resultatet. Jeg har nu i længere tid prøvet forskellige løsninger, men kan ikke få nogen af dem til at virke. når jeg prøver at bruge IfError som i dette eksempel i min kode:

Dim testnum
testnum = WorksheetFunction.IfError(5 / 0, 0)

får jeg følgende fejl:
Run-time error '11'
Division by zero

Hele ideén med formlen er jo netop at den skal fange dette og bare skrive 0. Den kører selvsagt perfekt ved f.eks. 5/1.

Gætter på at jeg bruger funtionen forkert, men er der nogen som kan se hvor jeg laver fejlen??

Takker
/F