Vba to replace nested if

=IF(D3>0,"FFR",IF(E3>0,"COO", IF(F3>0,"DPT")))

What should I put in vba to replace this formula? Was given hint to use loop for 5000 rows of data (the above is a shorter version.)