I'll show you how to do this in a two-step process, though you can combine both formulas into one, if you like.
Let's say that you have some date field named "MyDate".
First, let's get the last day of THAT month like this:
Code:
LastDay: DateSerial(Year([MyDate]),Month([MyDate])+1,0)
Now, based on that calculation, let's get the last Wednesday of the month using the result of the calculated field above like this:
Code:
LastWednesday: IIf(Weekday([LastDay])>=4,[LastDay]-(Weekday([LastDay])-4),[LastDay]-(Weekday([LastDay])+3))