VB6 - Value like between 2 cells in MSHFlexgrid

Hi,

I have the below code that search a value from a specific column and row into another column and row in the same MSHFlexgrid:

    Dim C As Long
    Dim R As Long

    For C = 1 To MSHFlexGrid_rates.Cols - 1
        If MSHFlexGrid_rates.TextMatrix(0, C) = MSHFlexGrid_rates.TextMatrix(1, 4) Then
            For R = 1 To MSHFlexGrid_rates.Rows - 1
                If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then
                    MSHFlexGrid_rates.Row = R
                    MSHFlexGrid_rates.Col = C
                    MSHFlexGrid_rates.CellBackColor = &H80FF&
                End If
            Next R
        End If
    Next C

Select allOpen in new window

What i'm trying to do if to update this part:

If Left(MSHFlexGrid_rates.TextMatrix(R, C), 2) = Left(MSHFlexGrid_rates.TextMatrix(1, 6), 2) Then

Select allOpen in new window

I want to say:
If MSHFlexGrid_rates.TextMatrix(R, C) contains MSHFlexGrid_rates.TextMatrix(1, 6) then

Ex:
If in MSHFlexGrid_rates.TextMatrix(1, 6) i have the value: 1559 and in MSHFlexGrid_rates.TextMatrix(R, C) i have a value: 1559.00 or 1559675, it would then put the cells in orange.

It is important to tell that the number of characters may vary in MSHFlexGrid_rates.TextMatrix(1, 6).

How can i do that?

Thanks