Sumar columnas MSFlexgrid en VB6.0

Recibe un cordial saludo por este medio, y nuevamente solicitando tu apoyo, te comento estoy tratando de sumar varias columnas de un msflexgrid pero a la vez deben de cumplir unas condiciones para que se sume su valor.

Mi msflexgrid se llama Flexgrid1 y tiene las siguiente columnas de las cuales ingreso los datos manualmente en las filas de las columnas Id hasta Total

Id Nombre Lun Mar Mie Jue Vie Sab Dom total Regla3x3 ExcRegla

1 ABC 1 2 3 2 8 6 2

2 SDF 2 1 2 4 9 5 4

3 EERT 4 3 3 2 12 9 3

4 HJK 2 2 2 2 2 10 5 6

5 uoiou 1 2 4 2 9 6 3

6 yiuyi 1 1 1 1 1 1 6 3 3

7 retw 4 4 4 4 16 9 7

La condición para que vaya sumando es no mas 3 horas diarias no mas de 3 veces a la semana para que la suma me la ponga en la columna regla3x3 por cada Id y el excedente iría en la columna excRegla.

Este es mi código y que no me da el resultado que yo deseo en la columna Regla3x3

Private Sub Command3_Click()
Dim conta As Double
Dim suma, suma2 As Double
Dim fila As Integer
Dim columna As Integer
For fila = 1 To FlexGrid1.Rows - 1
 FlexGrid1.Row = fila
 conta = 0
 suma = 0
 suma2 = 0
 'Recorremos las columnas
 For columna = 2 To 8
 FlexGrid1.Col = columna
 'Recorro las celdas viendo si tienen valor >0
 If Val(FlexGrid1.TextMatrix(fila, columna)) <= 0 Then
 Else
 conta = conta + 1
 End If
 If Val(FlexGrid1.TextMatrix(fila, columna)) > 3 Or conta > 3 Then
 Else
 MsgBox "suma1 " & suma
 suma = suma + Val(FlexGrid1.Text)
 End If
 If Val(FlexGrid1.TextMatrix(fila, columna)) <= 3 Or conta > 3 Then
 Else
 MsgBox "suma2 " & suma2
 suma2 = suma2 + Val(FlexGrid1.Text)
 End If
 Next columna
 FlexGrid1.TextMatrix(fila, 11) = suma + suma2
Next fila
End Sub