MSflexGrid

[_RaSH_]

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 saber como hacer para que me diga cuantos pares e impares salieron...

Hasta ahora tengo este code:

Código (vb) [Seleccionar] Expandir

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