OK this isn't VB Scripting as such but still does the same thing. If you can adpat it it might help.
Status: IIf([Company]![Acceptance Date]=#01/01/90#,"In Progress",IIf(Now()>[Company]![Review Date],"Out of Programme",IIf(Now()>[Company]![Review Date]-31,"Review","Active")))
This query...