[VB6] Ricerca in MSHFlexgrid

[Magicolotto]

con il codice seguente riesco a trovare un numero nella MSHFlexgrid

Dim numero As Integer
Dim row As Integer
  Dim cells As Integer
  Dim i, j, col, dcst As Variant
  Dim Matrice As String
 Matrice = 31
         
           
  dcst = datPrimaryRS.RecordCount - 17
    For row = dcst To datPrimaryRS.RecordCount
    
        For col = 2 To 51
        MSHFlexGrid2.col = col
            MSHFlexGrid2.row = row

    If Matrice = CInt(MSHFlexGrid2.TextMatrix(row, col)) Then
        MSHFlexGrid2.CellBackColor = vbGreen

      End If
                    
        Next col
    Next row

 MousePointer = vbDefault

trovo nelle ultime 17 estrazioni

dcst = datPrimaryRS.RecordCount - 17

il numero 31

il mio problema e che devo fare una doppia ricerca con un doppio contatore dei campi (col)

a tal proposito devo fare in modo che

il primo numero 31 con il secondo numero trovato dia per differenza = 45

nel caso sotto dimostrato
76-31= 45

vedi figura i numeri evidenziati in verde

[Magicolotto]

come dicevo sopra.. sempre che sia possibile


il mio prblema sta nel cercare il secondo numero

e per far cio' sarebbe utile magari con dei contatori di colonne
xro non ci sto riuscendo

poi per la condizione basta un if per risolvere ovviamente

grazie anticipatamente