VBA formula

[hocs]

Hi,
How to 'convert' this formula to work in VBA code:
In cell H4, the formula is:
=IF(OR(B4=0,C4=0,D4=0,E4=0,F4=0,G4=0),"Incomplete Invoice", IF(C4>E4,"D.O.Date>Invoice Date?", C4+G4))

How to write this formula in VBA module?
(Note: H4 is date)

Thanks!

 

[Bill Rockenbach]

Try

If Range(B4) = 0 Or Range(C4) = 0 Or Range(D4) = 0 Or Range(E4) = 0 Or Range(F4) = 0 Or Range(G4) = 0 Then
    MyCell = "Incomplete Invoice"
ElseIf Range(C4) > Range(E4) Then
    MyCell = "D.O.Date>Invoice Date?"
Else
    MyCell = Range(C4) + Range(G4)
End If