Filtragem de campos no vbAccelerator Grid?

Este filtro, 10:40 - 12:00, é pego pela rotina abaixo, pois contém campos
com 10:40.

Mas este filtro, 10:00 - 12:00, não é pego pela rotina abaixo, pois não
contém campos com 10:40.

Logo, tem como fazer na mão algum tipo de "between" só com VB 6?

Eu ainda não achei a solução.

***ROTINA******

#If COMPILACAO_TERMINAL_BOLSA Then
                    If m_frm.Grid.ColumnKey(lCol) = "EVNTDTTM" Then
                         'Verifica filtro p/ coluna de Data/Hora (Ex.:
10:00 - 11:46).
                        sFiltro = Split(sWork, " - ")

                        If UBound(sFiltro) > 0 Then
                            If (InStr(1,
Trim(UCase(m_frm.Grid.CellText(lRow, lCol))),
sFiltro(0), vbTextCompare) > 0) Or _
                               (InStr(1,
Trim(UCase(m_frm.Grid.CellText(lRow,
lCol))), sFiltro(1), vbTextCompare) > 0)
Then
                                bOfertaPassaPeloFiltro = True
                            End If
                        End If
                    End If
#End If

TKS,