con il codice seguente riesco a trovare un numero nella MSHFlexgrid

codice:
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