wie schreibe ich eine array-formel per vba in zell

ich möchte das minimum aus a1:a10 (mit ausklammern der 0) bestimmen.

dazu benutze ich diese formel:

{=MIN(WENN(A1:A10>0;(A1:A10)))}

die {} klammern besagen ja nur, dass es sich um ein array handelt, wo man die eingabe mit STRG+SHIFT+ENTER abschliessen muss.

nun möchte ich in B1 diese Formel per VBA-code einfügen:

Range("B1") = "=(MIN(IF(R3:X3>0,(R3:X3)))"

aber hier habe ich das problem, dass die formel nicht als array formel erkannt wird und somit nicht richtig funktioniert...
kann mir jemand sagen, wie ich das machen kann ?

danke !!