Looping through a code to get the value of the counter

Hello, I need help with my code, it is supposed to sum column G if column B are values contained in list "aircrafts", and if the date in column A is equal to today-90 days.
I put a counter "i", So the code is supposed to loop through the calculation to "myvar" and stops when myvar< 3:00. When it stops, it should return a msgbox with the value of i.
This code is returning a type mismatch error.
Any help?

Sub aaa()
Dim date2 As Date, i As Integer, myvar As Date
date2 = Evaluate("TIMEVALUE(""03:00"")")
Do
i = i + 1
  myvar = Evaluate("=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+i)-90)))")
 
  Loop Until myvar < date2
  
  MsgBox i
  
End Sub

If you try this formula in a random cell,

=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+79)-90)))")

the answer will be 2:00 which is less than 3:00 (date2)
so "i" in this case is 79...
I hope I am clear enough.

I showed you that the code result in the sample must be 79.
The code you wrote always return 1, disregarding the records on the sheet 'pilot1' and the values in column G.

The purpose of this code is to calculate after how many days "i", the sum of the hours flown in the last 90 days will be less than 3:00.
This is why I want in the reply in the msgbox to be the last value of "i", where the criteria is met (myvar < date2).

Am I making myself clear enough? or should I explain more?

sorry Norie, this is not what I mean.
The number 79 applies only in this example.
When I will make more entries , this number will change.
You said On the first iteration of the loop this is the formula that's evaluated

=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+1)-90)))"

OK. But it should not stop because the criteria is still not met. In this case myvar = 3:00 which is not less than date2.
So the code should continue and the second iteration should be

=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+2)-90)))"

Also in this case, the criteria is still not met...
So it will continue until "i" will become 79 in this case

=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+79)-90)))"

where the condition will be true: myvar(2:00) < date2 (3:00)

The value of "i" represents after how many days myvar will be less than 3:00
This is the logic I am trying to achieve, knowing that the syntax is all wrong.

Sub aaa()
Dim date2 As Date, i As Integer, myvar As Date
date2 = Evaluate("TIMEVALUE(""03:00"")")
i = 1

While i < 90

  myvar = Evaluate("=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+" & i & ")-90)))")
  if myvar < date2
  MsgBox i
  Else
  Loop Until myvar < date2
  MsgBox i
  
  
End Sub

The value of "i" represents after how many days myvar will be less than 3:00
This is the logic I am trying to achieve, knowing that the syntax is all wrong.

Sub aaa()
Dim date2 As Date, i As Integer, myvar As Date
date2 = Evaluate("TIMEVALUE(""03:00"")")
i = 1

While i < 90

  myvar = Evaluate("=SUMPRODUCT(--(ISNUMBER(MATCH($B$3:$B$100,aircrafts,0))),$G$3:$G$100,--($A$3:$A$100>((TODAY()+" & i & ")-90)))")
  if myvar < date2
  MsgBox i
  Else
  Loop Until myvar < date2
  MsgBox i
  
  
End Sub

Thank you !!

Thank you Norie, it works and I tried it with different data. Much appreciated.