Buenas, estoy usando un MSflexgrid para ordenar datos...

tengo 4 columnas una que indica el numero que ingrese, otra que marca si es par o impar, y otra que marca la cantidad de veces que salio el numero...

Quisiera saver como hacer para que me diga cuantos pares e impares salieron...

Hasta ahora tengo este code:

Option Explicit
 
Private Sub cmdGuardar_Click()
    Dim arch As Variant
    Dim i As Integer
 
    Set arch = CreateObject("Scripting.FileSystemObject").CreateTextFile _
        (App.Path & "\" & idtxt & ".txt", True)
 
    With flxLista
        For i = 1 To .Rows - 1
            arch.WriteLine ( _
            .TextMatrix(i, 0) & vbTab & _
            .TextMatrix(i, 1) & vbTab & _
            .TextMatrix(i, 2) & vbTab & _
            .TextMatrix(i, 3))
        Next
    End With
 
    arch.Close
 
 
End Sub
 
 
 
Private Sub cmdSalir_Click()
End
End Sub
 
Private Sub IniciarLista()
    Dim factor As Single
 
    With flxLista
        factor = (.Width - 360) / 10
 
        .Cols = 4
        .Rows = 1
 
 
        .ColWidth(0) = 4 * factor
        .ColWidth(1) = 1.5 * factor
        .ColWidth(2) = 1.5 * factor
        .ColWidth(3) = 3 * factor
 
        .TextMatrix(0, 0) = "Número"
        .TextMatrix(0, 1) = "Par"
        .TextMatrix(0, 2) = "Impar"
        .TextMatrix(0, 3) = "Cantidad"
    End With
End Sub
 
Private Sub cmdAgregar_Click()
    Dim pos As Integer
 
    If txtEntrada = "" Then Exit Sub
 
    With flxLista
        pos = Buscar(txtEntrada)
 
        If pos > 0 Then
            .TextMatrix(pos, 3) = Val(.TextMatrix(pos, 3)) + 1
        Else
            .AddItem txtEntrada
 
            If Val(txtEntrada) Mod 2 = 0 Then
                .TextMatrix(.Rows - 1, 1) = "X"
            Else
                .TextMatrix(.Rows - 1, 2) = "X"
            End If
 
            .TextMatrix(.Rows - 1, 3) = 1
        End If
    End With
End Sub
 
 
Private Sub Form_Load()
    IniciarLista
End Sub
 
' Busca 'valor' en la primera columna del flex y retorna la fila donde es hallado
Private Function Buscar(valor As String) As Integer
    Dim i As Integer
 
    With flxLista
        i = .Rows - 1
        Do While i > 0 And .TextMatrix(i, 0) <> valor
            i = i - 1
        Loop
    End With
 
    Buscar = i
End Function
 
Private Sub txtEntrada_KeyPress(KeyAscii As Integer)
    If KeyAscii = "13" Then
    cmdAgregar.SetFocus
End If
End Sub