how to change field properties with rules

I'm trying to make a rule that will change field properties (required, read only) and can't figure out how the correct usage. Any pointers?

it will eventually be part of if statements but for now...

I get ActiveX automation object var is Nothing

Sub main
Dim depth As Field
depth.Required = True
End Sub