Criei esta ```Sub``` para tratar os dados da minha listview porém a primeira parte do meu If não está funcionando corretamente: ```.ListViewEntradas.ListItems(i).ListSubItems(7) < Date```.

Eu gostaria de deixar em vermelho os registros que já tenham passado da previsão de pagamento (primeira condição) **e que** não tivessem sido realizados ainda (segunda condição), ou seja preciso que responda às duas condições.

O problema é que se eu coloco o sinal de *menor que* (**<**) ele considera que todos os registros da listview correspondem a condição. E quando coloco o sinal de *maior que* ele considera que nenhum corresponde.


```
Sub PassouDaPrevisao()

    Dim Colunas As Integer
    Dim Linhas As Integer
    
    'userform EntradasTeste
    With EntradasTeste
    
        Colunas = .ListViewEntradas.ColumnHeaders.Count
        Linhas = .ListViewEntradas.ListItems.Count
    
        For i = 1 To Linhas
        
            'se a data de previsão for mais antiga que a data atual & se estiver marcada como não realizada
            If .ListViewEntradas.ListItems(i).ListSubItems(7) < Date And .ListViewEntradas.ListItems(i).ListSubItems(8) <> "Realizado" Then
                
                .ListViewEntradas.ListItems(i).ForeColor = RGB(255, 0, 0)
                
                For X = 1 To Colunas - 1
                
                    .ListViewEntradas.ListItems(i).ListSubItems(X).ForeColor = RGB(255, 0, 0)
                                    
                Next
                
            End If
        
        Next
    
    End With

End Sub
```

Qual o problema com a minha lógica, e como posso resolvê-lo?