MINIFS VBA Function

[jaybee3]

{=MIN(IF(($B$2:$B$65536="A")*($C$2:$C$65536=1),$A3:$A65336))}

I currently have the above function on an excel sheet, I was wondering if anyone had a function to calculate the MIN via VBA instead?

For all intents and purposes the sheet i'm looping through looks like:

Date          Str1    Num1
01/02/2001    A       1
01/01/2001    A       1
01/02/1988    A       2
01/01/1987    A       2
01/01/1986    A       2
01/02/2001    B       1
01/01/2000    B       1
...