Excel sum formula with "*", written in VBA

I know this is really an excel function. But is there a way to get around the wildcards to write the following as vba code?

Sub test()
 Cells(1, 1).Formula = _
    Application.Sum((Range("B:B") = "value1") *_
    (Range("C:C") = "value2") * Range("D:D"))
        
End Sub

Any help much appreciated.