关于字符串比较

Question

a=567
b=65
如果b的俩位数等于567其中的任何不同的两位那么MSFlexGrid1.Row = it
            MSFlexGrid1.Col = 2
            MSFlexGrid1.CellBackColor = vbRed
            End If
如上面的例子，65等于a的56，那么变红
又如
a=456
b=44
那么b当中的一个4只能和a当中的一个4重复，那么不变红
又如a=484
b=44
这样变红
请问这个该如何写

Answer 1

    strA = CStr(a)
    strB1 = Mid(CStr(b), 1, 1)
    strB2 = Mid(CStr(b), 2, 1)
    
    i = InStr(1, strA, strB1)
    j = InStr(1, strA, strB2)
    If i <> 0 And j <> 0 And i <> j Then
        '变红
    End If  

Answer 2

刚才少写了一行
    strA = CStr(a)
    strB1 = Mid(CStr(b), 1, 1)
    strB2 = Mid(CStr(b), 2, 1)
    
    i = InStr(1, strA, strB1)
    j = InStr(1, strA, strB2)    If j = i Then j = InStr(i + 1, strA, strB2)    If i <> 0 And j <> 0 And i <> j Then
        '变红
    End If