VBA to get 2nd Tuesday of month

do you need vba or will a function do?
function is in cell formated as date

=IF(OR(MONTH(A1)={3,6,9,12}),DATE(YEAR(A1),MONTH(A1),1+((2-(3>=WEEKDAY(DATE(YEAR(A1),MONTH(A1),1))))*7)+
(3-WEEKDAY(DATE(YEAR(A1),MONTH(A1),1)))),"")

a1 can be replaced with today() else enter date in a1