vbaInet, once again you have come to my rescue and provided excellent support, thank you very much :)
If your'e interested the Control Source for the total now looks like this:
=IIf([DiscountOption]=1,[SubTotal]*(1-([discount]/100))+[courier],[SubTotal]-[discount]+[Courier])
All thats left...