How to use point3d as optional argument

I try to use a point3d parameter as optional argument as given in the below code. But it produces a "compile error: Constant Expression required". How to solve this?

Private Sub test(Optional testPoint As Point3d = Point3dZero)
''Some code
End Sub