Make statement alittle bit shorter!

[JOM]

I have the following statement on my report, is there a way tha I could make
it a little bit shorter so that it does not crash...

=Abs(Sum(IIf([TaxDocStatus]="Complete",(IIf((([TaxDocName] In ("W2","1099"))
And
DateDiff("d",[RqstDateRcvd],[TxDocDateRcvd])-DateDiff("ww",[TxDocDateRcvd],[RqstDateRcvd],7)-DateDiff("ww",[TxDocDateRcvd],[RqstDateRcvd],1)-DCount("*","Holiday","HdyDate
Between #" & [RqstDateRcvd] & "# And #" & [txDocDateRcvd] &
"#")<=10),1,0)))))

 

[Homer J Simpson]

I have the following statement on my report, is there a way tha I could
make
it a little bit shorter so that it does not crash...

=Abs(Sum(IIf([TaxDocStatus]="Complete",(IIf((([TaxDocName] In
("W2","1099"))
And
DateDiff("d",[RqstDateRcvd],[TxDocDateRcvd])-DateDiff("ww",[TxDocDateRcvd],[RqstDateRcvd],7)-DateDiff("ww",[TxDocDateRcvd],[RqstDateRcvd],1)-DCount("*","Holiday","HdyDate
Between #" & [RqstDateRcvd] & "# And #" & [txDocDateRcvd] &
"#")<=10),1,0)))))

Is it possible to write this as a function in VBA which you call from the
report?