Hola VonN tu idea me ha gustado, imagino que es open source asi que lo mejoraré... Mientras, aqui te dejo un algoritmo para búsqueda en cuadros de 3x3 utilizando tu matriz:
For i = 0 To 8
For j = 0 To 8
For k = 0 To 8
If j <> k Then
If Command1(cuadros(i, j)).Caption = Command1(cuadros(i, k)).Caption Then
Command1(cuadros(i, j)).FontBold = True
End If
End If
Next
Next
Next
Un saludo!