Ayuda con error de pintado celdas de flexgrid

[chelodelsur]

Hola yo de nuevo

Alguien me puede decir como hacer que este codigo salte las celdas vacías??

Resulta que con este codigo hago que cambie el color de los valores en flexgrid, segun su valor, pero resulta que cuando esta haciendo el recorrido si encuentra un celda vacia se detenie ahí y me dispara un error acusando que no coinciden los tipos

Código:

For Fila = 1 To FlexAgentes.Rows - 1
        FlexAgentes.Col = 4
        FlexAgentes.Row = Fila
           
        If FlexAgentes.Text < 3 Then
            ' celda del flexgrid en color Rojo
            FlexAgentes.CellForeColor = vbRed
         Else
            'celda Azul
            FlexAgentes.CellForeColor = vbBlue
        End If
        
        
    Next Fila

desde ya muchas gracias